(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    120723,       2420]
NotebookOptionsPosition[    118990,       2362]
NotebookOutlinePosition[    119334,       2377]
CellTagsIndexPosition[    119291,       2374]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Mmod", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"symb", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"+", "1"}], "+", 
      RowBox[{"1", "I"}]}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"1", "I"}]}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"1", "I"}]}], ",", 
     RowBox[{"1", "-", 
      RowBox[{"1", "I"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"softest", "[", 
    RowBox[{"x_", ",", "mse_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"symb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"x", "-", "symb"}], "]"}], "^", "2"}]}], "/", "mse"}], 
       "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"x", "-", "symb"}], "]"}], "^", "2"}]}], "/", "mse"}], 
      "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pdf", "[", 
    RowBox[{"x_", ",", "mse_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"x", "-", "symb"}], "]"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "mse"}], ")"}]}], "]"}], "]"}], "/", "Mmod"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fintgrand", "[", 
    RowBox[{"x_", ",", "mse_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"softest", "[", 
       RowBox[{"x", ",", "mse"}], "]"}], "]"}], "^", "2"}], "*", 
    RowBox[{"pdf", "[", 
     RowBox[{"x", ",", "mse"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"fintgrand", "[", 
  RowBox[{"x", ",", "mse"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5170298268519697`*^9, 3.517029854762102*^9}, {
   3.517030076591077*^9, 3.5170300781833663`*^9}, {3.517030283498595*^9, 
   3.5170302895172496`*^9}, {3.5170303302958865`*^9, 3.5170303391085587`*^9}, 
   3.5170308713238463`*^9, {3.517057301509039*^9, 3.5170573070048227`*^9}, 
   3.517088799935836*^9, {3.5171159508830895`*^9, 3.517115970551371*^9}, {
   3.5171375802851777`*^9, 3.517137587185193*^9}, {3.5171457217224092`*^9, 
   3.517145742562376*^9}, {3.51714578196904*^9, 3.517145813043723*^9}, {
   3.5171458669512386`*^9, 3.517146134776352*^9}, {3.5171461905765886`*^9, 
   3.51714619506304*^9}, {3.51714625064296*^9, 3.5171462880167007`*^9}, {
   3.517198121828125*^9, 3.51719813403125*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
         "]"}], "2"], 
       RowBox[{"2", " ", "mse"}]]}]], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
         "]"}], "2"], 
       RowBox[{"2", " ", "mse"}]]}]], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
        "2"], 
       RowBox[{"2", " ", "mse"}]]}]], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
        "2"], 
       RowBox[{"2", " ", "mse"}]]}]]}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}], "+", "x"}],
              "]"}], "2"], "mse"]}]]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}], "+", "x"}],
              "]"}], "2"], "mse"]}]]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
            "2"], "mse"]}]]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
            "2"], "mse"]}]]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
            "]"}], "2"], "mse"]}]], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
            "]"}], "2"], "mse"]}]], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
           "2"], "mse"]}]], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
           "2"], "mse"]}]]}], ")"}]}], "]"}], "2"]}]], "Output",
 CellChangeTimes->{3.5171461370896783`*^9, 3.5171461992791023`*^9, 
  3.517146295076853*^9, 3.517197852640625*^9, 3.5171981555625*^9, 
  3.517207146234375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"fintgrand", "[", 
    RowBox[{"x", ",", ".1496"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Fintgrand", "[", 
    RowBox[{"x_", ",", " ", "mse_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"Total", "[", 
       RowBox[{"symb", "*", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"x", "-", "symb"}], "]"}], "^", "2"}]}], "/", "mse"}], 
         "]"}]}], "]"}], "]"}], "^", "2"}], "*", 
    RowBox[{
     RowBox[{"Total", "[", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", "symb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"2", "*", "mse"}], ")"}]}], "]"}], "]"}], "/", "Mmod"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Fintgrand", "[", 
  RowBox[{"x", ",", "mse"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5170888300841866`*^9, 3.5170888386014338`*^9}, 
   3.517115963741579*^9, {3.5171461087288976`*^9, 3.5171461100307693`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
         ")"}], "2"], 
       RowBox[{"2", " ", "mse"}]]}]], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
         ")"}], "2"], 
       RowBox[{"2", " ", "mse"}]]}]], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], ")"}], 
        "2"], 
       RowBox[{"2", " ", "mse"}]]}]], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], ")"}], 
        "2"], 
       RowBox[{"2", " ", "mse"}]]}]]}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
           "]"}], "2"], "mse"]}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], 
           "]"}], "2"], "mse"]}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
          "2"], "mse"]}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], "+", "x"}], "]"}], 
          "2"], "mse"]}]]}]}], "]"}], "2"]}]], "Output",
 CellChangeTimes->{3.5170888400885725`*^9, 3.5170889624845695`*^9, 
  3.5171159761894784`*^9, 3.5171376074465322`*^9, 3.5171387258779893`*^9, 
  3.517146159161416*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Fintgrand", "[", 
    RowBox[{"x", ",", ".1496"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.517116038198643*^9, {3.517117096199974*^9, 3.5171170982529263`*^9}}],

Cell[BoxData[
 RowBox[{"0.000039288638979693485`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.517117598692523*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Total", "[", 
      RowBox[{"symb", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"x", "-", "symb"}], "]"}], "^", "2"}]}], "/", "mse"}], 
        "]"}]}], "]"}], "^", "2"}], "*", 
    RowBox[{
     RowBox[{"Total", "[", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", "symb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"2", "*", "mse"}], ")"}]}], "]"}], "]"}], "/", "Mmod"}]}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.517029913055925*^9, 3.5170299781495247`*^9}, {
   3.5170301609824257`*^9, 3.517030163015349*^9}, {3.5170302999522543`*^9, 
   3.5170303016246595`*^9}, 3.5170303618212175`*^9, {3.5170304187931395`*^9, 
   3.517030455285613*^9}, 3.5170307949840755`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"symbnorm", " ", "=", " ", 
   RowBox[{"symb", "/", 
    RowBox[{"Sqrt", "[", "mse", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xnorm", " ", "=", " ", 
   RowBox[{"x", "/", 
    RowBox[{"Sqrt", "[", "mse", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", "xnorm_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"symb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"xnorm", "-", "symbnorm"}], "]"}], "^", "2"}]}], "]"}]}], 
     "]"}], "^", "2"}], "*", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xnorm", "-", "symbnorm"}], ")"}], "^", "2"}]}], "/", "2"}],
       "]"}], "]"}], "/", "Mmod"}]}]}]}], "Input",
 CellChangeTimes->{{3.5170897236041164`*^9, 3.5170898142696476`*^9}, {
  3.517089896552435*^9, 3.5170899166198997`*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "xnorm", "]"}]], "Input",
 CellChangeTimes->{{3.517090076524041*^9, 3.5170900842151003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sqrt", "[", "mse", "]"}], "*", 
  RowBox[{"(", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"symb", "*", 
         RowBox[{"Exp", "[", 
          RowBox[{"-", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"xnorm", "-", "symbnorm"}], "]"}], "^", "2"}]}], "]"}]}],
         "]"}], "^", "2"}], "*", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"xnorm", "-", "symbnorm"}], ")"}], "^", "2"}]}], "/", 
          "2"}], "]"}], "]"}], "/", "Mmod"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"xnorm", ",", 
       RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.517089930443942*^9, 3.517089967252322*^9}, {
  3.517090106417025*^9, 3.517090124242657*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"...", "..."}], "..."}], "..."}], "..."}], 
                    "..."}], "..."}], "..."}], "..."}], "..."}], "..."}], 
               "..."}], "..."}], "..."}], "..."}], "..."}], "..."}], "..."}], 
        "..."}], "..."}], "..."}], "..."}], "..."}], "..."}], 
  "..."}]], "Input",
 CellChangeTimes->{{3.517316407518816*^9, 3.517316418314339*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Mx", "[", "s_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{"s", "*", "bsymb"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Mx", "[", "s", "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Fn", "[", 
    RowBox[{"n_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"2", "*", "\[Pi]", "*", 
       RowBox[{"\[Sigma]", "^", "2"}]}], "]"}]}], "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"n", "^", "2"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], ")"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Mn", "[", 
    RowBox[{"s_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Fn", "[", 
       RowBox[{"n", ",", "\[Sigma]"}], "]"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{"s", "*", "n"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}], ",", " ", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"\[Sigma]", ">", "0"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Mn", "[", 
  RowBox[{"s", ",", "\[Sigma]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"My", "[", 
    RowBox[{"s_", ",", "\[Sigma]_"}], "]"}], " ", ":=", 
   RowBox[{
    RowBox[{"Mx", "[", "s", "]"}], "*", 
    RowBox[{"Mn", "[", 
     RowBox[{"s", ",", "\[Sigma]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"My", "[", 
  RowBox[{"s", ",", "\[Sigma]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Fy", "[", 
  RowBox[{"y", ",", "\[Sigma]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Condexp", "[", 
  RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.51728907357677*^9, 3.5172892126367283`*^9}, {
  3.5173681719375*^9, 3.517368192359375*^9}, {3.51736825646875*^9, 
  3.517368285875*^9}, {3.517368374578125*^9, 3.51736842834375*^9}, {
  3.517368468109375*^9, 3.517368489203125*^9}, {3.517453356756227*^9, 
  3.51745340418606*^9}, {3.51745686182754*^9, 3.517456883893174*^9}, {
  3.517456936880024*^9, 3.517456961920014*^9}, {3.517457037963933*^9, 
  3.517457067201033*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "s"}]], "+", 
    SuperscriptBox["\[ExponentialE]", "s"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.517368507640625*^9, 3.517403371534988*^9, 3.517451239946636*^9, {
   3.517453368661693*^9, 3.517453395726115*^9}, 3.517455160530675*^9, {
   3.51745686906824*^9, 3.517456884889472*^9}, 3.517456966637199*^9, 
   3.517457072596646*^9, 3.517479351649104*^9}],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  FractionBox[
   RowBox[{
    SuperscriptBox["s", "2"], " ", 
    SuperscriptBox["\[Sigma]", "2"]}], "2"]]], "Output",
 CellChangeTimes->{
  3.517368507640625*^9, 3.517403371534988*^9, 3.517451239946636*^9, {
   3.517453368661693*^9, 3.517453395726115*^9}, 3.517455160530675*^9, {
   3.51745686906824*^9, 3.517456884889472*^9}, 3.517456966637199*^9, 
   3.517457072596646*^9, 3.517479353201906*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["s", "2"], " ", 
     SuperscriptBox["\[Sigma]", "2"]}], "2"]], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "s"}]], "+", 
    SuperscriptBox["\[ExponentialE]", "s"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.517368507640625*^9, 3.517403371534988*^9, 3.517451239946636*^9, {
   3.517453368661693*^9, 3.517453395726115*^9}, 3.517455160530675*^9, {
   3.51745686906824*^9, 3.517456884889472*^9}, 3.517456966637199*^9, 
   3.517457072596646*^9, 3.517479353543574*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"], 
      SuperscriptBox["\[Sigma]", "2"]]}]], "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "y"}], ")"}], "2"], 
      SuperscriptBox["\[Sigma]", "2"]]}]]}], 
  RowBox[{"2", " ", 
   SqrtBox["\[Pi]"], " ", 
   SqrtBox[
    SuperscriptBox["\[Sigma]", "2"]]}]]], "Output",
 CellChangeTimes->{
  3.517368507640625*^9, 3.517403371534988*^9, 3.517451239946636*^9, {
   3.517453368661693*^9, 3.517453395726115*^9}, 3.517455160530675*^9, {
   3.51745686906824*^9, 3.517456884889472*^9}, 3.517456966637199*^9, 
   3.517457072596646*^9, 3.517479353600472*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"], 
      SuperscriptBox["\[Sigma]", "2"]]}]], "-", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "y"}], ")"}], "2"], 
      SuperscriptBox["\[Sigma]", "2"]]}]]}], 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"], 
      SuperscriptBox["\[Sigma]", "2"]]}]], "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "y"}], ")"}], "2"], 
      SuperscriptBox["\[Sigma]", "2"]]}]]}]]], "Output",
 CellChangeTimes->{
  3.517368507640625*^9, 3.517403371534988*^9, 3.517451239946636*^9, {
   3.517453368661693*^9, 3.517453395726115*^9}, 3.517455160530675*^9, {
   3.51745686906824*^9, 3.517456884889472*^9}, 3.517456966637199*^9, 
   3.517457072596646*^9, 3.51747935360323*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]test", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{".1292", "*", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y", ",", "\[Sigma]test"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Condexp", "[", 
     RowBox[{"y", ",", "\[Sigma]test"}], "]"}], "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQ/azEyG+TyStHkYQp8SCagaHu7Q0Q3cD9AUwz8P+A
0Ht+Q8Qvsd0E87t5wXRDsxCEr6cKoS20IfRiKD1JH0K/MYTQJo0QfZItEPq/
6n0wHaUGou+VLld8BaQvmB4D0x7BUfYgOo01Dky3uvT7Mpm+cly5eR6Y1tn1
tJAFSKvN4i0C0Vck2uz4gfRB8/Vg2uzbPw8QvZ5bwRNEnzKXlhAG0iL39MD0
ytup70G0/eV6MG3YkfsLRJddWg6mt8+wZBYB0lm3csC0rv3OchD9xfAimAYA
yUWJBA==
  "]],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1fHk0Ve/3/+W698pUhgplrCSpVIrC2acIUSiSEJIQCkmGkpJChFTmZB4i
ZM50jiFDJPOU6Xqbx2vIPHzvZ63f76+7XuvZzx5eez937b3/OCKmttfvMRII
BDITgfC/37sZgbPb2xRc5PPDaMfTzxCedX4xuQ0KHlk+XLBCdEMqlRMMn6xQ
cLOhF3Ia3W6IWN+P2ikaBU/cfXaQM8wdmWD7L66LSsEreTNNG7+/RCL0HnTz
9FFwm+E3mV9PeyBX4pd3aXVT8OmE9gqBHx7INzm251XNFPxb3Geuk39eIXZW
Z/SyKyh42Byz7JDEG0QkD/OfwSj4n7cVD/Tq3yDNDGo/jxRT8J4D+mryj7wQ
6TCjU9E5FLzudlVjXZ03slztxfYugYJfyAwIefXDF0nm5lKsiaHgFy3Hn46/
9EP0jCNdiFEUvPr1H++fmu+QwqXMEZdgCl5wMfCjw4Y/8vxQN27uRcHzBQ+c
ndd4j5ywN1uOeUXB+ZpSZfnq3iMDxTPHet0pONst0I9QC0Iu6hAjtJ0p+JWh
uloWnQ8I6ZWkI3qfgpfyeNVKfPiE5DXkpT69R8GfGrx5VSQZjJjzXxjMu0PB
ic9ND1j9CkZqvt/QPKZPwTtOnVP05wpF/AaeH+FXp9vj+enJ0xWOKEjuMLmh
QsF1VhmfZwVHIDNOH4IDFSm4qfzGkv6tSERrZzKRIk/BX+Sf+09z5jPCjTT1
LkjS72t6Oal/i0YqfQx4Thyh4Kq/s2zERWOQx23DalaHKPhk7r+d/OExSLvN
Wv6AAAXf/jwa5vshFgmPOBD0m4OCH7CdblpMj0e+SoXF5LNQcPUjwEtST0AK
f3J8jyFTcK9rSakekwlI9+zqH8ctMq6r9iL/wvkkhF+pkV1whoxP1uzjusP1
FZHouiTAPEHGMwr8Dlq2fUXOPyySnB8m47cHJ/UmPqci+qGJ6lW9ZNznJrZv
Bb4hEVPPfB7+JuP+P2mcV8wzkbSX86F6tWTc2onDdaw/EyneY5l88ScZH1n/
FDtq+B3pQbWr95SQ8d6gwX3Wd7KQ/Z+OkLA0Mp56rO35qZAcRFLiC09KMhln
OS/T4Xc8F5HHeA5+iCfj55rdCrl/5SKG49sXLSLJuInIGRdejnwkUqH9xU4/
Mm7+UjUKfv9A0prVA1e9yPg3Vy8zOZ9CpNii7Mt/r8j4i5eGKbfUipCe92ml
+U/J+PFjQwlePcWIwIjHhrE1Gf9p3d6vKYojx5+usKpZkPHC27q7G4NxBNn1
cJ/0XTK+8bpsjxNHGWJ0/tZ5ZgMynpOXofSOUo5E+Z9wzlQj41z640MXDlQi
6QcSvMKVyfhbpqZvhtmVSGkBf4jnRTL+2VIzT1vlJ9I3SMrTO0/Gs74bssg/
rUIEZXoWCBJkXLigEenfXYscr79GnDxExnfLvH9cVl2LIHequdpEyHia0dMg
g+e/ECPfrJMpfGSctSbmwqm1OuRLv7fttR1k/PnCkxMzJ/4gJqzMf16QyHiC
3rdhw40/iKiM1/FMBjI+6Be0NGLeiCT6v57mWCPhpysLA/aiTUi6god1/QQJ
dy/icTzO3YLY3WeoWx8h4apvt64eDGhBTn16IXH0PxIeWjJkvZ+jFcmdej7u
85eEFwv/G9Xf3YYURzy1UKkn4V/xb5R96h3I8+q1qic1JPz20qNQCWoHgi64
iCVWknCyyUxdm2snUqnmPMxUQsLr1Eb7tH90IXWrj++WfyPh8fK3xm/d60H8
Di2Wz6WQcEP32cJ0/l5E45qDqEgiCT93mLSt09qLNCfbU92jSPh3qbMKazr9
SPfNh8YKASTcdMzj5EUVKhL5arrUxpeEd6r/I33JoSJGGTaCkV4kvKNKWjjw
4CAySLbuXXMn4SwHIhys2P5DxnMtDArsSPhL3li9zM0h5Ct1pHDUhoQTgz6z
GL0cRmzYzfn33ifhtPRvm4LMIwjNzKzL8Q4JV5t2DhYWGkVWuO/cPH2dhPMJ
Xk8RdhxHCmEgz1SDhL+L4N1pxj2BPLM23hOkRsJdlOt0tHInEELF7TbaRRLO
D5oNjkxTCOWRvnb6aRJ++XTJ0yvNM0jN566s3hMk/KGNK5dk4CzytlaPi12S
hHtXG8ifOkJDOERuNlkfJOE65udOCM/TkD2N2ppHdtP55Njz6FT0PMLXcLjD
mpOEczx6VxO7cwHZX79ulM5OwqPNgnr9Xi4gIjVxD0+TSfiFJ/ERxAeLiCS+
8E5hmQm/a1b7afvuEnKitHr3iwUm/PKhCE18bAk5VRzxuXyWCT86tuFkY7eM
yBQoflMZY8Jl4vkv//ReQS5mfqi/1sWEqy2e11foX0MupVvofGxjwv8dVVzY
57aOqKbJ9bQ3MeGyZ4rsrAQ3kKvJ/00a/GLCk6+Xun2x3kT0ok+zmhcx4Z4b
ypzyfASwDWy57PqZCWd/EGbx8wIRHvknNRWHMeG73j9kb84kwmO/p7e2PzHh
mYUTFAVRJnD1PnDf058Jd3vakmvERoI3Lxy8/d2ZcC6Bmx2ntsng81xlV9NT
Jvza1asvgjwo4PdsXyi3MxNeP6O4nc/MDO+dK5JC7ZjwgnbWPj+BHRBpx10d
e4euP4ZNZdmKFb48HNUYvs2Eu78RYhcgs0GsTVH7YX0mfCRiUe1FPBskWd4d
SbvOhBeP215AJ9khyySblK/IhNctCfPDtV1Qo6WtVHeICR84O3Wj5y43SIRy
JRSLMOGkhTPfczu5wa+/iZQuwIQ/4rH5KabFA1oPtaoDdzPhEwXvUIrKbuj0
vaqmS2LC2RjuW1zX3QvnW9hSVRiY8MDuQ+nO1L0QyV/Pem6TiFdNMhDSbHnB
JEXt975/RPxYh32tyyc+GKtS0aIOEXF//rhlD+b9oMZB+d48QMTn12lhA9/2
Q9qNKs7KHiKuzXJSs0VXAOyGlFoSW4n49dl7nOXZgrDCcFHXppKIP3or4Tn7
WxiYFeQNl+OIuMqKk5fvvoNg5blePPaFiI8zOD8MCzgI9XWFAt0RRPydHIfm
PvIhCNQ/11/8gYhvsW5fTVs7BLzOZ009XhHxV9aZLZZEcXDF/pU7uBNx44/w
xdVPHHrIuQfuPSXiPq7JPZa8RyD60+lhFQcirt/+VZ/7nASIZ0tZst8l4ikh
GlxyXyTh7dpszZYREcd21trXosdg6kLGEZo+Ee+QiT+dNnwMMhuPTTZfJ+Kz
tkadGedOgOyMxMPQi0R8cUyYR5F8ElSPHHp8QJSIj7m4JvmdlQZDysxBfUEi
TlhDHgZESYPdcF5bID8RF3RiWfBkPgMhMaoyW1xEvPBzWIjV4BkY4bNZ6yQS
8QJed1PeDBlYW5ZO3Ukg4nMuGWrJh2WBo33TQHmDEYe/jacdYmXhTFBASfYi
I+4X3ts4EHUOPFmyX/gPM+Koa+fYqRw5CB17evInlRH3DBp69x3kIa1KaXC9
lxH/QdOLL/4tDy0e7Yr32xnx8M6vdXFzCiC6vkpWqmbEi4fvXl+RRKFsEn23
msyIZy3rhTr8vQittTsQqQRGnKug6tk1WUUYS2qeMY9hxIOlVMrbgxVhl5mZ
VmsYI66tvHdkXk8JTHq8uDPeMuIie94oycxfgseFWpXDbxhxZscvcrtvK4N3
KJ/j/leMeNlkEXdrrTJk6KS2+zxlxKms1bzcKSqwVd8QZmbDiCc4W2k7uF8G
rtQQtQhLRlzYWPqJ9NplEPMxWW8yY8RPViln7nFSg6uX5g3hNiO+X0s3wcRJ
HSJLdgvzazDianeFSggfrsL5dMPEPycYcbE5E3UloWvwrW2XVO5RRryN6eyf
yCfXQHiz8kf4YUZc36g91v/PNSBfOfb7nhAjznZQ/NitN9eheXxzYZ2DLm8W
3qDOrAOXOLPcqCx0zMkgKfVABwpkzSnVZEZ8Xz9FcaRFB6K8GviDthjw2ktj
ucOJN8Dq0JcL4jMMuKBYzUEWs5vQe0W7jn2CAXddXdql03kTtB5TbiwMM+Dv
5anR6Rp6cLbC1rK0lwHXcD97LP/CLWC8gwbo/GbAxwWqfpEvGkB4JLXnRRoD
nn9Mbtkr2xjYKz+Zmycz4HUXXfhfiZnAi8nLNPV4BvwZa4nmx8cmYH4+i7g3
kgGPNTz9oYznDpzq9JD45suAx606nf97zxQSts/mBHkx4N72iTdLS0yB9/Ck
gvMrBlxHkMFGcO9d2HLUvqb4lAFflAs9adNwF35xH3TusmLAU24CH1XzHijI
dTJg5gz4GZv9xho59yDT1M833pQBVylQ6bPgN4fg74tRtvoMuEfG6zcFk+Zg
qvnzJ0mNAfe11Ah+FWcJa2/NuU8dYcDnevcdDHtgA+metj8lDjHghtcb812n
bcD0ubPTAREGfOe4d80d2wfwy/7tXx4+BrzI6E6hoctDCNdLj1tmZsCD3Q5r
Wmrbgcb1/Bs0Jgacwtks3hphB4xXcMo4gQHXCq/YZzJsB1bQbN29QsD/qG7/
GH1qD+fElk6XjBHw7GqZXQfzH8GU0PZw7hABr97pl7DF7ADRfMyh6QMEHFeL
Pc9n6ADM7PwbXzoJOOt1kpAQ+TF0LihUetQQ8Nk+QeXh+47gXPZaRzWZgK80
+jucf+wMkkX+5AvxBFyK+95dkR5nGMgJKTgXTcAPnhmRCrzkAqrJKfuPhhJw
28vjg7wCrrA34PcQuzcBD9lr8+lO/1PIM9zt2GJBwIsdhlKu5rqDla7g4fq7
BLxcx9B7x/4XIKh1uKvSmIDbX9zz85bRC3ijeE4h7yYBN3Nk5GgYfgG6ErdJ
YSoEnJ/XMegGwQP+Lcd/MjpMwF1u9/vbm3uCvnd+SOQBAr6uaufgmeUJOO+v
sG4hAq6Vfe5owLYn+J2b/azLS8CVD+UbBUe+BtGn5xI1dhDw91d4unIG30D0
RsQDt/ZtrEBJeco7xgdsBMrsVxu2saJVXcLNLR+QQUYcHau3sQHv53tVDd9C
g7vU8wcF29j438HcqH2+sMH40/92+Da2dTbJ8WGyH9zcMZOhYETXZzouKrkZ
AKIS3Dk/dLexqW3TtMqzgTCjJltwRnMb00mdexdpGwiefh74MXQbM5T8a6Tx
XyBk7dzbJCC6jaUURsuPNL8Hjj3o/ObwFubOcOf+1dYP0H323pJL3xZmHViD
/tn7ERJuvl37176FrTP+OsRj+BHkw1oZZ6q3sBC2W7+mRz7C/f33uftStrAb
6JOCneRgqBQNki59sIWdFhNSe2cdChrt7yZC7m1hS2VF+QPlodDp4xNtf3sL
U/9UyXB+XxhM0V6wHbq6hdXkcp+k/AkDbsx2yFdyC9MVRL3UFSPA1ODqx1uT
m9iS3Gl/N5MomOK4rHb6v00sRiqvFq2NgiflSgT2v5uYe0dC6vHTX+DtEXkb
/NcmRkM8By6TouH7soTS4a+bGPI01XXwv2ggfGReXLTcxI5f5xkYL42FtypM
XxtMNrFNIWT22GYs8KxvGyfrbWL3jNhP8svHgbjpcp2B6iamLxrMTCuKA02p
kbjyw5uYaHH+gayKeIiqr9AOHNnAXkX95QpdTAQ5knv2UbMNzGAnZ/LOoVQQ
H3m3I9BwA7M6EjY8ejoN9lRHGi/qbGDDd3QbHnmmAc27kLXk0gYmM2h0NP7w
N0hkW7qrcXgD25ST+/TuSTpw8TzgsZ9Yx7pC0+9/jsgEwr+nVm2D6xhl/l/k
9dpMmG57i5/7Sz+3aZ2wWM6EmpBkG8b6dWwoQNQmR+c7uO0bqvzwbR27eZow
0c+dBWOiBo55duvYbje5ktb4bGgnWtXx31/HfFJ7Dv7ozIaKIWcR9zvrGIkg
+ZbIngNRicG/Va6vY/2fYr/UPckBbYnmQ12n1zEVceLUSc1cKD15uX19aQ37
THUwCufOh4+ojMwFtzXs1FGpG8lThUCsmu2tc1zDBJ0PaPlJFsEj9WRP3Ydr
WOTd2aoumyK4psvXbG28hv3uf5v0faYIOGzWbYIvrGErtonqesvF4B2CxU6S
1jA1BjTjw34Mns2ocAT7r2I7Rr1vO/0tg0kHQq6w1yrmFmqazs5YDvqrBQap
7qvYVq5Ye6d4OZxjkkjB7Vax2KOWZuxO5bDEx6Y0eX0V2+8XqTG9uwLsLjW6
oHtXMeu1oOlHtyvhbqTe8MSXFeyqbqxlElc1BOaMKrSErGCFMzk0B8VqKK1/
ElwUsIL9KM1XcHlcDfybH1X83FewmAanZcmOami83ZRyzHgFC2cPOy31pQYQ
IbWHdoIrmObWpfRb534BX6zc8r/IZeyk4A5D2w+/4U+S4A6G8CWM7ZLBzf9M
mkGQLfMklreIsRLb8vaadsHDIfGegPRFrHzTD01174LS4pg3JomLmNXdncbH
PnfB7Qcf/jIEL2LeNuYS6x1dENnw5LWS4yI2UO//5duVbuB7r9BVe3oRO8/m
VjJ/8i/w7Kl70Zq5gNl8VTkhOtYDZjOKRxOSF7D/pp6GODH2Qk5VcZtj9AK2
bpFB+rq/F7Sd0iX2Bi5gD6Z76+O0eiGo833rLdsFrPP0rh09eb2wM0JPvP/Y
Avak+FPJ2NM+YBEe+TP+dR7r72Dd3zPUDz2RzHUDsfNY+pYCwXa1H77xHa3q
CJ/H1Mn56mPkAdDitiv++XYeU7GM5dzmH4Bg8lpyjNU8dvVikcn6hQEQnWb3
uCUxj7XnCLcSfAdg8b6Um5boPHZiTqI18cMA/By57qzCP4+NvdmYkoocAMuB
kIdnWOYx++XXX2lpA5DeImLAOTGHSR4+CXy/B0Cu8Ix0bcocdlTtHOMYhQps
Mnon8Jg5jKP4P+tCDir0ZbtK5IfNYaK7K2Ue7qaCxzdMOMFnDtvOnrntIkqF
mujL7C/vz2Ete//r45OjQriADbPznTmMtLNMawGlgnW4P9H21hy2Be6kb8pU
4PjYsmp4eQ7TOJiTg1+jgo7X7RHZI3PY7Vrz4nvmVBBjekE9ITKHnZmcblaw
psLyi9geMb45TN0iQfafLV2/62gzz445TI5R+TWDCxVslnc0sDLQ7cU1yOi6
UUHhsWQt4yoN04qoafR5SYWBB/YYbYyG5Vfq33jnQ4WsiQ+FowM0TO+nHdft
d1R4ZZGX29dJw+yf/9NjfU+3f2c9tb6GhjnouBwjhlJhpVcgqQKnYa6ptKAr
EVSo1UdjCwto2OmCGqnHUXT7Oq9Dk5Np2FrAQP3teCrEbBWeloihYU+CG8Tn
EqnQnkxrSA2jYUHHjcfMU6iAbhqQMt7SsJqBXXdWv1HBMel9tNQrGtapucG4
J5MKX69Vy2U9pWHUUqFuniwq8CSeepRrQ8M0E3gJP3KpcFnLkl3mHg17EG0j
b5RPhedrn5MLbtOwP7DkPVxAhez4FsXzujSM8fNsr0YhFcY0dvQXadCwvHYJ
6fAiKgisIq4KKjQs4yrX6+piKlyPe7wbAxoW1ZP8q72ECt5Xv2aisjSMgfXt
dnUpFUqW+9XLpWjY8PkJwQiMCvMxu0cVj9CwhKbgg1o4FQ5fUff4KULDQgyW
2Ebp2HDphYAKPw378pW5zbiMCu+j8wpquGhYway5ayEdV6lNaaux0jDTP4rr
S3S8vigyW0ek82dnrbu7nAomSAZPxMosRvBR9P0frgviV48an8XAqC5smS5/
dvT1y5juWWy4NsKjiI6j5eby4+tmsZenRpXv0DFLoOFMUvEsNvTSZWyM7s/j
oeqDqd9msZXdBfev03Gf7GmD9KhZ7FFazO/P9HhU30W9/x4wi7ldbthbR483
i7qjJufFLKbCZ3ulm87H/rOOW/n2s5jHFQ27Ojpfb94OSBeZzmKtsw3eUXQ+
aX3q1qXas9jx0qkIbTrf+qfzY8qUZjHJGbnMCXo+Kr1EOyvPzGJaa2P1d+n5
Ot7zjqNGbBZTMytYLaXnM1RqValu7ywm7UCGjWwqPOj6871pdQZLqPWUEaDX
Q+cxubHWiRnMbejOFiGdChc9EgU7/85gj+L3kKpTqbDnqJtvX8kMpnm5Y3uV
Xm8v3MfKqOkzWJ/9BTYLej1OtGivDH2ZwcZXEJ+8GCqUPpO4N/lyBjPYtYdt
k17P4k2fImYezWDJT+aPL9LrPegQQ/PcXbr+efON35+oYN7Qgaxcousvethx
JIAKO4Vf85JYZrC6YSk7zxdUcH1M02Ben8Yui279DHpGhaEag9esU9PYu8Ka
G57OVCiwPzXP2TCNpTxLdeS0o+e3or9OMGgay9so3d1+mwoqCiv3el9OYxU5
rWHBenR+8ncRIu2nscy8OL6z2lTY+HpBmu/aNHbhzJovlyqdr6C4SO5d05h0
DImqJEUFd7bis83bU1hJ7qn/CBJ0f9+0NgbOTmHsrBPzkQeoIO1KInH8mcKc
Ki83Oe6hQuMdiwfM/lPYb2et+vS1Acj/606pdpvC+NmsnW0XBiDqRmjM6wdT
GK+quh3n1ADYXK5tY7w6hTGtkWdXewaA+eRRZJN1ChM69XnzTskAXCDMcsz7
TGJnboqz5TsPgLgrJSXTZRLbLabXHWM7ALsWhRRt709iFqVh43bmA9A3quU0
pTqJNXcnRRZrD4Drn6z+EcokptT0/OiuYwOQFfUk8+/rCcwM2+WZmdsPogpb
136+HMe6DLVX2S73QSOngmTYo3Fs/FvGgYen+uD5yFPyg7vjmNi52KbUfX3Q
HbBayHNpHPtz/rhJ6XQvfBhcPGDGPI59rJpdVA/sBSbvyX+MAWPYkbkzvhZ/
emCkuTMMjRzFDnfFiMXJ/oUUy2xqUd4wxv2KYpb4pwOsFr4b+oZTsQC7rmuH
5Roh7OycnMVbKhbYHUbNEWyEGhepfYquVGy8xH1Vh7ERDhEyutZuUbHO7tdb
ER/+wABbmq4VHxUrSHmTdzO7AW6IJWpdDh3APC5AS/paPbzMkvbhkOzHOrOF
Lz1Pq6W/z2yVKtZ+TKi4TlbNpRbksZPk55N9mLD5pKG6ci0s1R1/Nf21D/uv
dzB/ZqAGbIbF3eqP9GF6+xrbK3hrQI9XwP7t4V5slivj4XxQFRx/TrpFPvAX
eyLWqnMjuwL4CxtDxpj+Ym2vdjdqvq0A0lJE+6+RbiymtHTd/U4F9Dw4pRPw
tRv71qUx+HJXBby9bazJe6obK2RV5NtpXw6j8j8uSVzowrpF/T6byZdB9LrN
KQ3jDiw7az+lfaUE/GRk7aUudGBerX6Jnjkl4ORAzOQ60IEFfQ8VjbUrAY3J
sGMdI+0Ybajmw5GJYtjsrhI3ediOHUPjJe4PFoF+obDQI7c27HUUHzVi9Adw
u7SyBke0YLmU8oltxTxY2V7lnHVtwfZddlepZs6DvjdCvKr6LdiLD9rybA25
kPzR6uAabwvGNy7eyq6fC0gmQcEouBkjIke/jzrlwP1RyYdi75swjD9O8vuv
LNB4eP2xu10TVjp3hHI8JAuk/zm5dmo2YdnSt+wPmGXBFmPFm7ccTVhkQJH3
k+3v8FHw1pcZ30bM2WQiLFvuOzxPZYl5wP4HCxlg17b6mAGXf9z4JlTfgE3O
FDILyGcAT3X0j6a3Ddg7EcHinKF0SBk823yGuQFzyzUZDpBNh1a+u8Qtxt9Y
enTH+76JNJDwLrrnv/ILe0rx+HDI5Sv8+0R+hOb/wsjjzbJVx78CHnft+bzj
L6yq/kAeMpwCN7DRYN2FWszw9+J/2Top8GKJu0ZwpgaL2F9YGqKQDB1mNhIZ
/1VhDo5sHb5nE6G0V0smL7EK0wzxzNLaTIBE3TNKJferMMRF8kJVZQI8Vt26
XTf7E1Of9+7EbyTALsnA96PrlRi3WegPqns8XF7IXhHiqcCeegefVVyMBSmb
UNLhjnKsWWTiWNXPWOAdfsZ1PLwcG871/jEbEgsj7Zck5YXLMfvZQnFpJBY8
CjuM9STLsGo34ph9UAw4EpffifiUYpffiEhfuBUNSv+wpBM7S7Gyem50TDoa
uEa9yxQ+lWDBlYtDkpzRkP6L/9+tmGLM+5HOX76QLzDyHjEM+lGI7T9sSJYO
iIKcV5Qn0VCIbb2bSgKtKPBwbAxI//kD6yCwxT7nigKhW6YVv5oKsCTqq8Wg
8M+gJ/xGgjiRh31b1pTcKIgEMS5NJU67POxrw9AHn1eRsEjkNRJaysW20o4Z
KmpGwvvRlPdyjLnYIapJt+xEBPxK/73iwJ+N3ZLkX919PAJCo4O5PKKzMPvp
h/k0hggwDzKWDBTLwhyMlFvn2sOB+GTOOO3UdywwWcLRzDMcnFwl/Gs/pWMa
5+Y1VqfCQGOG1p6R+A2Tm7kpHPsrDMRM84WC89MwqZP2e+6khEHbZaXvpl1f
MfZdVXeFrMIgrYRlTXUiBdNPCy4VuBIGniebLp5YT8bcbmpekjoRBqf5jFrX
9ydhx+tuswSuhALLu4MCg8cSMRKM2/T0hcIgYfJeDZKA0U40KcpVhcL7Mafl
jyZxmFtVSuXx0FCwNETQp/axWK88Y065RyigjUw+dzxisIwX/rEWD0Ohz/bA
GUPVL1jEjMrZ/1RD4d3NzCpxq8/Yn3Wfiz9kQkEeFPT++UZgaoMn9n85HAqT
Yr/Gy76FYZIks5cfeUMhnOPmU/8/IVhuzSfpMJZQuLz0H5vB3Ccsd8+zjbTN
EHr/aRd1mPsjJp63N/7PXAgk/dw8sSgdhIk65q4RRkNA99vbMlw3EFs5RGtB
e0OAReJEIv+cH5byMIsS0BoClquqtdnSPlisteyjyfoQqKoxnbri/BorOMi5
eKMqBA6EPts5UvQSu94m9KgBDwHGP5L3traeYqPkz206xSFQ8sAkVerNYyz9
+V628YIQmOMV/+8nvxWGbT6m+OaFQGOaYL/OdV1srGW+5HxuCDDdURf2VkQg
5JKYxEpOCKQcj3ViKzSFA5UbahX08zDnz/9a2uzg30rRgcj8EOjtup8Ro+EM
EXEMxR6FISAqd/a+bbU7nFKrEHIqDYHTGi/fC0a/AoaSq8YuFSHQ9tzi4WtD
L3hgoxTgUxsCThlX1ad4fWFPUHRNUmMI8A+cFtdu8wcxyUzx1s4QMGJ+x9ir
+h5W63iaOAZDIEOYYL/r8AfYIVM+enMqBAjnHPoVSZ+A4e9GcMZyCFy7NnLV
6b9gOMCjx76HKRRi798q/loWCu3KOW6+nKGgFA5hnM8j4UjGvWPxJ0LhU1YW
5ZJhFERdGB9VQUPBYZhLTl4gGvzdfgatXwuFys3XKbbrMVB2uazvg3MoTPlg
Jj4TsbB5bLeAy7tQ2L1ndW9cVxy40A68sY0LBfPjNm/a8xNg0Oj4hffNoeBf
mKBAS0yExyKb10omQyFfuX9xR3AScHEfYt0ghQGz8fW7Co9ToEm7WSRbIQy+
Bsii8VLfwLen1ZGnMAyYKr8UU6TTwcChRf93XxgYr5DPWctkQL/wmeXfTOHw
NnOCl+9LJsz7qgun6IQDwveDcyAhC1Q7iFN/iRFgnT315/3hbAhdsRMYPUV/
31eF/RVTsoH/vOBh9G4EzL/0YklKy4GUDGPZ/uoISJy4QXyYnQfnaxMTJqIj
ocXTp0zoTD7UCJtVu3VHAkGoxL0pLx8itUNPmO/+DPraBzekCwvAaJ/T2PmA
z7CzeH5xHS8EU8vUUM4PUeD8LmDEp6EUzNh1hmUeRkPC4Yp4OS0MSu1OJU9/
iobmsiXT6SYMkpSuIzdLo2HPerptshUOwb9TXVQ5Y8DuxJ4p1odlULXa/DUX
i4FDoUNDzY8rIH+rIkkH4kD+3lZFam4FfNlSagh9FAfXT/HGeS5VgPN68XBE
Yhy8qFe/c9a5EmyVJIeou+Khm5DdG/b0JzCnvrziMRMP/vdftpt4VIOfqcXv
soZE8K5jyB0qrYb+iZB4VpYk8Djm8cFyvRrqZvvfkpWTwGnOQ8vucQ003GER
5cKTwMTF85e7eS3MM5X0BBUnw0kfr9IotTr43kOmt95fQXKS8lnUqw52NV85
5SyYCmJXvZ8mVtRBurDC5957qcDP6SObLl8P1mfrFnqXUoEx7G1WyfHfsLvP
f0+1yDdoTX6X2MP1B6Jr5Px+R2RAAwvHaxPNP+BW4dbhPpMBNTb+d4d8/0Dc
S1+uDeFMMApV2fWE3sfd1+dMiHLMBG1D1d9uTxuhh73s3acD30F+6LLKuwdN
YPPggKR/UBawL16RS7vWAkKz+XwJpbmwq/vUXadHLcBezqH6YjUXeHBe34sf
WkBETJa7WzoP+P2GujtbW+ACT9snlm95IH7wmStJrxWYDA29zOPy4aJO6g8j
ozbYV/ebF0n+AU9ydshyWnfAcbgaEMtdCi7hs8Y9vh1QrF5BzDEqhWcv2ryS
0jpg8b7KP9WvpfDqSkyHwkwHXFLOubJ5EYPAIVknK/tOODL0n7+KAg6pPJZ5
FU5d0Ju5fOTgyzIYeFwl/cTzL6TuWWh9eq4SempI/MnxfyGMfTrmsnkldO6/
tN1V+Re0/chz2h8qobGyolaB1ANzM/1aAjOVgPOUGZHe9ECILK+uW+JP+JJT
5P3RqxdOXYnLQkSrwWgxsyfrbT9cGQ4g/FL8BTM/rpY71dDn7iS+Ky5+jZDo
FWNi5jMM9sp654OfdoDJ9wcZaWHDYJZTSWwI6wD+v+e2FlOG4UFeyanN/A7w
P94c8frXMByOpTdTix3wpI2xI5F1BDIPcHsp23SC8gGzq+PvRqD/znbG8K0u
GCkVO/8waBSUrd6Efz38F6LH5r3zYkchgCgzWq34F/S5sI6trFHQ9WR3qTP+
Cw33bjoGtIxCmAY3+irkL+SxeWdm8oyB8YTV0UR63G/0x8UWgsfg4CtRK7Sn
Bw4tpXI7R4zDkKrWLlbbPuD9eU009es4eBuUG1x/3QcsH5el+n6Mw3Kz++vH
EX1AO6moodQ5DlMsnc0q1X1Q/KDbe9fuCVD4fWqHkEA/6AwzbyX7T0CimuMF
mbJ+UMlJZ+v5PAE+wmkJG639cP6Vzr6d3ybga8qJ2OCxfhAWiZZ1rKPf92xw
iKMMwKShjMMF5kmw2zI4qUKfpzxa7411vZyEQztFc6UfD4BjHOsy2/tJur6d
4YnPBsDy0XcSGj0JBgHHNrY9B0Bj16ZoYukkfGhaf2/5aQD4rny8/Wh9ElzT
m96z5Q4A277zNgksU2CvqDeZWzwAW+P9rp18UxDZcevlpcoBGPI6GorIToHZ
u5Vfe1oGILOivJnFcQqWQzhr3GYHIC7IkqrgOQXB79P/6SwNQPAdDprdhynY
+dhennNzAJ5t32Lv+D4Fz6K2/GRZ6POx3JxK3MwUdHZFRiD0ebYvS6hEznIa
5o5vHGPXosJv2UcSok7TkGdwPYj9BhWKSytDmN9MAyoXoTZ/iwoRv+4/aoub
BtYPvrqWd6mgN5h92LZ/GsL39t5gcqTrtyR/ujEzDR3FhxoPulDh7Iweo/zm
NOAt+yfF3ajAs7bZw7xvBoouhGb/9aRCE6dqUKzuDDxq+vNiPIgKeEj4tve9
GSiMa505GEyFTIFpG9vHMxBGrrJRDKOC/5EgFfmgGdANDNQ/8oUKbhlDOaIx
M1D5gZpGi6GCzRkZ0R2ZM8DbsbM1PJ4Kahd6Ntp+z8B2t7hNSAoVzlUftyru
mYFgA87K8VQqiF992RE7OQNzNi2lgulU4G1pUfJZm4FRAYNrZzOpQLkllmW7
Yxas5A7bS2VRYanPWUiXdxZuJl/mYc+hwohZnZ/84Vlwz7Q4WZ9LhUo7O4sd
l2aB8wtH/tz/9mdL5a2z2rMw0PRzp14hFWKf7b7YbjoLPCVt5dFFVAhitMwo
tp8F3Zma2v/tg156F+6PezELKuOlgl0lVLDjYH/rEzALaXo2xTWlVDD5aLxs
GzULVef3RYVjVNDkzzLT/TYLZcypmAZOBSSaqVm+eBbkugIFhun4mNhNOFA3
C//cOnJul1Fhf1pK2o7uWfCKFHpVQMdspzb4aGOzoFj+5c2//+3P8jW82pdn
gc/hYClPORX+RWm5GhFpEH9615E9dDxNXc1sYqGBkr9B9Spdfuhg3KgSFw0u
c38Kw+i4x+KKYAEfDVAdarQFHbd+/adzVIQGat1rfXN0f+qmo3yjxGkQuPeU
rhEdl0uplnNK0aBB+8GOb/R4Ch3mVjxlaED7IL7R+7/9WV74iRWEBn+eOZ6a
o/ORsqpobq1MA+LJ9cwROl/R8tORfVdp0Hxk6Vkpnc9Q9+CWazdooMgqG+lM
5zuwHFh+GtLggsPh3bt/UMGLNI7KmtHgXwU28+F/+07VIKdUaxqcGA+U+kfP
3xNfuXRBBxpQ+LBBWXp+HzYMDb13pcHnAEYOY3r+zTn995E8aMCunFRkQa+P
GyED3pOBNMBOHKoSTqPXp0o2O0MYDXT/yr/5TK+3muXXQXtiaND7rxVfTqTC
eb2jkRe+08DgaueQEr1eHZi3hG/+oEGJ7tCsTBQV0goaE2zK6PoFvhcwR1BB
kO9JRkgTDdwu3v+j+JEKN2tVpb910eBey+lL6YH0+Fz2/Sin0uPdfFqz5EcF
YjdePj1HA1unEk3R11QYC2dtV+SaA5md5/8NO1BBRL1P/xb/HOjsKL2naEsF
/fXM/oeic6A39F+SuxUV6g10x8NOzcGagCHnJxMqfN8fszF7fQ76HHqyz6pT
YaLe4SXJYA4KO/eOvrtEhYNuyuR9d+dAU/1OfyVQIbh3cqeywxywXjZNbD5N
BdeoswciP8yBumONhT0//T1o7Ej+HjEHk9tHQn9xU2Fq669kddwcyBlsfWNi
p4KR8cuz89lzIC67KrZ/ewAUhesvq7bOwdikWUkPlf5/GXvHbpFnHvbrO5F/
xQzApevS/3YIzIOhmL3ipbABeM5IcRU6NA/9Ndqi8YEDQDNNe6V2Zh7Yh2J8
2N0HoO3AcnD0jXkI8PNy+qg/AFEJfiVXgufhrEK5ZjTbADwWvxLb8Xke1syj
DAWIA3A5ldXLNGEemu9VHNyx0A+LmW+1nHPmYfSbuenB+n5QL/b+L655HuJN
lHKMnvXDSrPnjnWOBXhk5RV0tq0PrhHcbqR4LcBC6M1rx617gcngwTTJZRFe
fzc3M4BuaDBJSbruuQTR0i8DPmQ2g8cB9/P/fJfg1A+1cNePzXBmROd3yIcl
yOIZ1bF2boZIa8JCT+wSnHVuF7dGm8H6yU3EomwJBgXjNaYbm4DZj9T2dGsJ
7jAbXbmw2AgX8+8wJjgvQ0q7lvdtvwZYcpH5pPJiGaI2euLwmw2QIs8uPuG1
DMJq3sjlAw2wq7zg6omQZYi76/+7vvA39NfvDPuRuwzkew7bKZP18Gyw5ETD
/DJ8HWXo33+jDnLZ+W8v26yAXV6ycNDlGhg5qvzF4fEK+JRPNt3aVwO8ao+o
s09XgMDSO6s1XQ3P3vy6N/aWfv4i2aHhfTUobbs+7Epegbh1JT323ipopv11
LxpagUfRztS6Zz9hpuVzrLvhKmx8EOP3HywH4fnaofW7q/DL/ANTYmE5XN+1
JOZsvQoYW23dfFA55F7RSLVzXYW4hxPKR5XK4dnPrew7oavQ03CSmT+lDFjy
jX8qtq7CEYF379af4SAWLjJGubIG5eGjLAthxRB2yMlZTGcN1kOm54evFQPb
93rmS4Zr4JbO4aLLUgwL1U5HPGzWIJNW057xrAjwf7+tNvzW4DMu4AsWhWBw
zXWa9nsNgtTdjJK1C6Ch54/bzvY1eFBbtm7MXQAXLQ9xHO9bA6f21pX3Lfkg
7t543HpmDdbSxRfu3siHpTQxu2GOdSjdyxmeb5QHgcwt812a6xBbs1HV6pUD
xI/ir1ZuroO0fmEIm2YOPBF6zr3XZB2UOnnu/9iTA7fPHpHWsVuH9iolJ7uk
bJAwc3dsCFyHU4c96lUbsuAndnSlvGkdzpbFNl04+R3WnnhupmpvwH//VQzx
BqUBS1vVNBhsgD01+XrZhTTgP72jr8V0A/pO+orvm0+Fc7PvStftN+AuZZ9X
v04qOFuEuKsHbkCRIo9UkOhXWLr5lWGyfgPGersE23qTgJw3Nfe8dQNuOByz
FQ9Ngj08Jwa5ejagbLI1SVA7Cc40Zpefn9yAlVYVXtov+lyqWvLq7Y5NsOBu
qWArT4B52UaShPImrHTo39D/HQeMIVxLJVc34fOcqbP1+zjg+qczcu3GJuQ1
5D3YpRsHJ793VbmYbcJjXzEGLmos2B35z6vWYxOWotQPdW3GwAzf0o772CYY
/w1Ti70WDZNr+ziSZbcg4vhfEYb8cJCv8rrSh25Bo2+Ii+ytcPB/v/CW5/IW
vDZR4PTcCAMp8TrKy1tb8FimKUNDOQye3HBl0HfdgvYRwy67Efr8n9m5yFq8
BTdK5CLHdD/B9adKpy9WboGC/LF7Wjs+QZxypr1z/RZ9/ktgSy7+CMq9XjND
PVvwUilMQlDsI/iyyIyVbG7Bt/iCoDHiB9hz79NfW9gGa+W0kd3jgWAhxcCf
qLINk/GLjc4pgVCwbqPXo7kNiyc9AlKsAsEgSKlN1WQbTIWk6jr7AiAaW2gQ
ebkNLU3css+Z/OEo//XylvJt2N3DxIsFv4VnwyUElrpt0Pj9TvLuibfQkHkE
0Ba6fLO3k1mtD9ipMBSn/bcNvlMc47YMPmBwvrP7IiMBjY91FlV66QXRFl6t
+w4QUPym8fjPYk9gfmpZd+AwAVWWZ0jZZe0Jdv6Xy48eJaBmo9odjvyeALms
mXKnCeir3gTiq2evoI8x0NdAkYCeR0Y9rl/1gP1RoRcj7hJQ1f4ry+JCL8Dz
u8u5OAsC2vzxX5dJkTtMVepLpVoT0GxOwhHl8+5QNLlfsMiBgP44dH7RTeE5
6J+LWe1+RUAty+4Ostx6BqGtKZn88QQ0OIopgTTgDISxt0miyQT0YOoF7W0n
Z7Bct46SSCOgXvWffzzjdAYZ0eN+53MI6McxkZBZVSdot82y0K8koCASa3Gq
1hGQVx+MTGsIaCuj9q0qG0dIDH58w6qegA4E1y0XcDqCY8lZRddW+vm1O97J
xo+Bh7VIMHyIgI4ZSDjLsDrAM8HI3bFjBFRcr4hR5ccjGDrpxvZ1ioBirS0z
QZaPIFsP1n4sEtDVNP/3f37Zw/XEirYuJgZUYP/zduvPdhB4od6P7xAD+r3m
eXnMrA0ol8ad7hFnQKV8u7yPOtvAxvmn3VGSDOi9tLXwR4w2YCktIX5Qmn7/
6M0jovutAT3sXXFckQHt7Rmrsbl7H5bijK3mlBnQA+pfTZRXLSFNWIYzR40B
vfsrqvp7oCXw8o8YnbvOgLLMul07UmkBNDalNcU7dHtfLZ+xK5hDos++GPI9
BnSVqfn6aN89MCQvqNRaMqCW+1RWJDzuQc12zCcNOwZUl4M7o6feDKLnt6Vu
uTOgD3LnIi0e3QXNziKLh58ZUOLvyMrTaybAdOMDx8kYBjR4233kbaYJFDZZ
5S7EM6D7dWQDSZYmIFbHR3RJY0An3UvEUnOMYavEKepVEQPK79C2czTkNuSc
17ykjDGg1Ej9twu7b4NVvtgUcwUDWi4eUr0j2BDaM9vO+f9iQOUvu/qdjTSA
9LjTbaFdDCjG8Im5DrsFZsKszwx66foE/KqMrt4C/s+DooJUBnQOc3Oq7NGD
N8Hv7eLGGNBWDZmbkwQ9MPKZZU1fZkD3iDgvz9/WBQ7b1IsVuxnR27+TpHzu
acO92JBdHXyM6H0Bo52zJG0obnvVNyHAiDK5+n0hJ1+H+/KGrlxijKixW5TW
iblrULmDPevOWUZUqcr4U2qwFuxTWHV3PM+I7s7ZtzCoqAWP7Iav+iCM6ER+
G358WBOEOkrGM5UZUStqUWhJsga4xj8UIdxkRDvbbepfXLsCTR36s9wGjKjX
bLiCXbk6iLOqlBw2ZkQHrL4Xr59RhzZ7oVuaFozoozPSq4UH1UAKGgOjnBhR
oSs6xRlCqjDSdZKgEMqIchx3so/wUAIFdsEGrUhG1IRVJ/8JrxJ8RFkizaIZ
0Wo+8zzNTEW4kDQo45fMiFqcC5TuHL4IkY8/2P4tYETxLY8fNy0uwEKSu8Js
MSPqLPjnjjTbBVD7a81KLGNEZS6XF9ZnobB8QSlJopYR7dsKauQkoXB9578+
ly5GVO6yXtx5VwVIuUhNe9fLiJYxkDrZ+uSB8OS3awyVEX0VWpdBVZKHbz0J
e2rHGVGbvvsit/fJAfNXXQ3eNUY00ksTOzohC6VKBSV5/ES0fq0xU5fpDNyl
hsu9FiSipVa44nCYNDA/d/uhLUpEvSqmfa1PSsP1/Iu5tCNE1PBPjICC+WkY
OfI7TeIcEX2SIJDENnISfKsyJFbliWj7e8oNu7cnQepuUHI1SkTfnbCufit1
Elwjb8abqRJR8S2/1p8vpYBj52BE1E0iemLj5a5dtschO7WS74EBEe2a8V9M
bjoGeqpJIXLGRLTMpKBQXuYYxL60+dBpTkQdB3WrhVgl4ezi0luuJ0TU6tId
Z+vWI2DUxer65iMR7Y6/3v1s8BAQn8ws64QSURN9pqGFh4cgmavJ8UAkET0+
zr87efMgzKsH2+NxRPTwQNFwlMhBeFMqfH8ti4g++hR2PdNDFI4aEEdr8oio
KDHAYVVIFBqXh81CColo9Pjz8ZOYCPCfTDWRLieiITxlw1eIIvT3c0bvYRMR
HXgfVWB7UQi0Ud52+TYiap71KoIjXBBWeta0WbuIKG/31xXiPwG4uAfXTB4g
ooF/U25k5+yHdm81lcFZIpo96Z7x9BY/bD4wPqvLwYQOMu2XVJDcA6ay076c
XEzojpwB3/qc3VDF+JRav5sJ/XjN2asIdoN/SLCfogATikQIW/oa8oBg2e9B
KUkmNI5ylViRyQUevgayUyeYUHz/ApegOheM3Bh/l3SaCV0W8MVfjXJC+gTT
OUE5JjQMy+1WEeMEhEc+gFWNCX3c5K53w3EnxPbVDlVdZUKr2CzEYms4gJxy
87zHNSb05l59TTshDmhQcBhe0WNCKTbdJVc62MDI4qvciAUTmi5W2Xf+IQu4
F/KO4a+Z0E+dMqzPj5JhyDNR4ZkPE7oh8hB5kUECVU3pDzLvmNCD37SO8Zwl
wa4hTST9IxPaYHIYLVVjgmh2r48RcUzo1V4VYkUgIzB18kzoJtHjG64/uXqY
ESxjY4ErlQkFxb9TJmUMICVTOuGdxYTuDWvbCl0jAG7yD31SxoSmXPYbYmLd
Rg4efRV88icTeiO9tFdafwvx/rdraqqGCc19isyKfNtEtN5KhtxtZEKNtF7a
j97eQAay705r9dPPe3aThMdXEaXncxfZ/mNCc9AQpbM6q0iyqnto9Qg9vl06
Ca7lK4hdb7giMsOE2nOxPb+SvIwwUJrDjm4yoXd6/tw3DPmHkL0f75FlIKHy
pYp44s5/CMuOvR+USCS0Yt+PWwK+iwgPq6HfbXYSqnzEZl7FdwER3znyPECA
hCrdKbuVnT6HHAv0Xo8QIaEhOxPz3ZA55BTnUefkQySUnae6YaaRhshx29mX
HSOh7dLG4Zzrs4jG3rW7Cwok1DCwd4p9bArRDo0c2L5AQsOHJ5z7j08henxw
m02ZhFro+Pbsd51ETPd56h7SIKG8Mxm6jgITiKMQx+WbRiSUKC63e/7jKOIa
nfnzrikJNa9utnbYGEGei2hftDMnoYufZ5xiLUYQ7wOhcj4PSah6pspWtuow
EnlY9HjRcxLa0jCoYn76PyQmufJrtQcJ1dCUfcSdN4gkHrE43PqGhMq9euLQ
IDeIZBxNE572J6GC05MkMS0qUn7iLLfQFxJq+y8+fl66H6nO7Aw4GkdCjTVK
3Ews+pD6k0/ZZJNI6N+5itreqF6k/TROupZBQjMyBI767+9BxmXUVjwwEiqW
UPUrSrMLmSmYehxQQULT/El7DZM6kflzAXMR1SS0+f2gjiqxE9mQa53I+UNC
KU2DA6rV7cgu1Kh3pJ+E8hF0/6q4tSK7ywj6C/+R0NRPqrLtCy0I/8W49u1R
Euo90cHa+aAFOaA09oeXRkLFaQocg9bNyFnVR+VqBDKqd0fcrvddI+JzinWW
k4mMel14KXvuUCPSsz9+XxeFjF7rWXkn+PwP4jHX9thiJxnNHWlyH1z4jTSE
nzvsKUhGje0v6QnsqUNEXjdrq4uS0X8vLGec7/9CHttav+ASI6OLTsr2i3gt
wq/0uSv6GBkl9BQ5TT6tQSymCX4l8mRUZVsu6aZQFVLYEVbgiZLRz0LH1yXf
/0Q4yk8NqyuR0eqRIzG25J9ITrAZ0q1ORi8FrXpPrVUgBLSGtqRPRm+p7H/5
dUc5oi1xR6DUiO7/1cPj9R/LkESetcuvTcloTMKe0SrRMuTK+NE4bisy6iZQ
abCljCOhQQE3pFzIKK//IxX72yXI5DNxj+VnZDRsUXkz/nMxQh/e00tfkFGO
mmr1d4NFyJDcAuWqNxkVwPvkWF0LEalh3cL7IWQ07cn9krqefOTVn9kRqQgy
KtRS9y8d8pH2H97cK1H0+598Xjsm5iHP/Att3iTS/ZkW7NFwz0VqZQSF4nLJ
aOZ222CpQTayXzRf3eoHGX1/3s3h0t8sxI5Ny/lkCRm9i9jME4yykD3Ul01Y
JRmVaIuLrbH5jpi+HX7V00JGzxSR1UQMMpDcx88z4zrI6DCDx1NTn3SE2Xhv
r9VfMsq5l+H2ZPE3JP305bOrg2RUag23vH46DVnrSRvbPU9Gd3a73uTST0GU
bGoCry6R0ZXZZtXAiGTk3fp/sq/XyOhJnXO2jwaTEGH+fT6LjBT0kulegwb3
RETlps+RFm4Kur9osY78Lw4JHIlvYuGloDIH5kzLbsch3Y64y8X9FLTG1VG8
4Vcs8vDjcu33gxT0x5rdl3vfY5CPTfesAs9Q0LyVC9/b9b8gfSYvuWrOUdCt
uKHrItZRyGFaZOG2Al3+K3Dc8PiMFHK0stgqU9DBKxwbOZURCFX9YurVmxR0
X4dW6+WPoYjE39varw0o6JpXd3dVewjy2MplvdiYgk6iwtrVgiEIs0+muqQl
BfUxPxOVW/oJOV4lOMXiQkGH9loGnj3/AXG+cf7jRTcKanpJ5lpefBBSNnRD
3vUlBQ3dUo4K4w5CdIjv/MZ9KKhxaE4G21YgEhWULC3iT0HhsMJzY5dAZEyE
3oUGUVAWu0uVMnMByFN0XbImnIImWlrU4Ez+SOWfPW3bURT0ZN3F1rt87xAO
41NuMnEU9Eyh36dtaT8k1u3+78RUCios5duj++ItUlPY8eB1MQVtv2rCpmrq
hXCpLewuwSlo00Eaj1XKG8Swi6N0sZKCImUxplxLr5HZ5UscZr8p6AuPzQnt
L56IrNedvIgmCjp7VWMrav0V4rHHzailjYIerWZYbTF8hew5k5N+sY+CLgrZ
r1kd80BMKv/oug7S/aHpHPOKfImkaE9ufR+hoP7i2kEMu14i8o9ENUVmKWin
yB0sgPgCecOALOstUFCjhG79X2R3pDHw1pfAZQpKYfTnl+V4jvALO6rUrFNQ
L2uTtOMCbsj/+54A+v+/J/B/CAq+xw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-3, 3}, {0., 0.5549422075288146}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5173685576875*^9, 3.517368617859375*^9}, {
   3.5173686585*^9, 3.51736866971875*^9}, 3.51736872034375*^9, 
   3.51736938146875*^9, 3.51738096078125*^9, 3.517403413794146*^9, 
   3.517403644341688*^9, 3.517452911112113*^9, 3.517455175281537*^9, 
   3.517456889734035*^9, 3.517456973891555*^9, 3.517457096947116*^9, 
   3.517457297415167*^9, 3.517479416021364*^9, 3.517479498887932*^9, 
   3.517487298597713*^9, 3.517489021692338*^9, 3.517489110986077*^9, 
   3.517489182010219*^9, 3.517490112536719*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF13k8ldkbAHBkJ7IkhhZK00WpMJSQtCHGliJKihAlUblFaLRIRNslP1EG
RRsTRuUxpGwhyYji3svd92tf0u8czWfm/Xzu5/18/3jPe885z/Oc59UPPO4R
JCUhISFCP3w/9PS64Pt3uVqJuUtoF2/YWxt86T9n312e+V7lP98buHzcXUH2
X2t1eP5KWCjzrxvdPLe2GEr/650Ew+jlBvP+9V+czdcmi6VqJ77jS2C38Ylf
YbupVC33H2fnUL4klErWtv3jqZRgjfUEyVriPz7zV7LXzmKJWtLsD4+OF9za
/7NEre3MD+9R4D+12f8dysZ++I1BpnlNxCzwmT8scVN+ZCTkG6yt+2FrmfPl
xodnINj3h5kG+2IqIqchKmB2zjc3W1rax02BHm96zuf4O1Rup01Cx+jonA/l
7KWx701AtT1jzjr3rcdHc8ZBhVAz5/aiJQqS2WOQ0+Y25zGfI4sDikeBHOA8
i71E+dk6qBiB8G6Ynns+w+Zzk9kIkCTkJrE1tVoSup4NA42XPoKd2ZPR5XN8
GDrafETYqnf3rhpYPQzJfZt42K4z1p3684fh2YY3bOxU/6XnDnPFkL51goHd
UiO1sqhFDKlSbUPYisvo7axHYpCT30DBfqxj/PbvbDHwS50HsN00Il81pIhh
X4TdV+xh5Rdl5UQxEHzV+7Bvy04V54eJ4aeguh7sDRJ299J9xSB7wKUb+8vk
hVtxTmKA0WcfsQ1485N8jMSQMzL+HruB7nFmx09ioI98asYOId85ZqEoBsvX
ie+wlXq/HF4+JYKbqybqsZ981N+nxhbB9QGLWuwEt63e8lQRpPnb1mC7vw92
//5ZBFa7LV9hj7wt2cFrEkFR/UTl3H5XW5g3PRTBT/YlT7CVLfea1uaLIMaR
UIrdX040qswSwe2LNx5iJz2GZb9fEUEIwagA28uIqpuTKALZnbvzsQ2LpBfd
iBXBjHJYLnZjnuP8xFARNNa5kObieXG4/JmDItixRfcW9tHstHnHfURASG7P
wFa5+XHSz1EE0+tYKXPjX/KnWxFEUNLRdBZ7pXQCxVRfBA3WFaexxxPuf1mp
I4KC2KSTc+MTGZ2aCiJoi6gIww4fV2hTkhRBxAK9YGybaJMmqUkhMPz9D2KT
I06AkCmE6Jhje7DL2DeqGWQhrGRYe2BfOFLxor9HCMc9yLvm3n9wuqS1UQgn
Z4rt58b3SiYVFwsBSjUI2Pmz1WZG+UKIXMMwwO4uFraVZAmB5HhND3vzt30y
T1OEsFRpl+pcPBeuj3oRLgT1lnDxLLKjW8h8yyAhmB15wsaOn/pfcZW/ELzU
KqnYTFeFgZeu6P9OaHVivx4fcK5bK4Q91uTH2OL8hQwHghDuAqEA++ddzkkN
+kIgdxtnY2fkVVQ1qgshkOiejN2S+ZNzLksAMp60Pdi/MJIT83sFcOJ6hTN2
nrWosqBFALaWa+ywo4ferSh5LABWoKwhtt4vMbOVJwSQ4Tef+w35YgrZ/GWg
AN5ebfiCLex3PlrjKYBTfvPfY7+5ZNDzxkIAyym2pdgRn9uff5jkg6t202Hs
ntXWzC42H96l57pjb0kqXNLTx4f3Cxk22FrGcVf7X/Nh9lutJnbNOaMgTiIf
cv2XvpxBXvXh1l1+FB82mix8gJ1pKNkpOsQH4nrfFOzgtr9tJ7bxwTPytTe2
6rJkbRlFPlRruNOnkYnRQlf5aR78MUZoxB5q3JesxOWB42LDh9hVJ9aL1dp4
IJMaEoIdUD/QsiSTB4ZvgvqmkHfYTAR9TeTBeUmvMuw1lQskck7wQM1x6hL2
zCN7cx13Hlz6c5sp9uAK37a/N/NAGP1JArs5Nyrk9loexPiKOyaRSZkPcjQW
8MBW6vdw7PPKr37p/M4F1hUDK+zgi10d1wVcyKudkcQ2J8rIqLRzQSYx8/oE
csfBIxHyaVwoflB9Zxy5su+83Ls4LpwsuOOFnbublJ8cwYW4i36q2OGOTZ+k
XLgg+Ztv/BiyZz3l+F+buOBLilyPvdFmSiHBhAu2p1cNjSLLrzO2/abEBU3f
dZuxBY8cel5Oc6Cgzpc9guN/hV8UkcMBpxfdGdgF2tcKx5s54CIX2TOMbC8h
UBFf4UAzsdBejPePKPfwWSwHrpXSP4qQF4wsdTgeyoGvp6sDsfsZbqe5Ozmw
sOhJjBDXy4OhaiVWHIhovDUpQC7tSywJXcWB/cL/xWIT28sG6HIc+FB5M4KP
fNCxJfb3cTacIG2h8JB31g9qHGawYYc43Q1bq1JzJ+UtG2SMz+lzcT3IPfWs
L5kNqcGJl1nIWdrpTtkxbDhK1/7ExPU2s2hobxAbPtQs0sN2vdij3b2VDR6e
d0h0ZAsJUdlNczY4xVS/p+F8ISq4eK5gQ0/BlZkhZHbExsSOeWyYig3YPoj8
geGhmz7MAsbO2QAqjreDR1+4DLLgwv7oaArOr905rOY6FqgqzksewOeHzax7
QyILKPrj2/rwfqvZmGRFsYBVlmjei+sH/axsxCEWaJlo635G7k2frNbcxoIY
W2J7N/IN6sjyw/Is0DtGaPuA863SbNZykgmauhanOnD+Xo3qUWIz4Wi7nWY7
8i4LYWp5CxNGzVeua0WWvswZlUpnQtGBZFoDXi8/o47u80wo4NPM3+D8WBf6
6FEkE17ueX66DvlVL32/hwcTuhxUu2uQY1ZT3+UvZILUlgl2BfIKKf37MbJM
6NzW2fwHcmf3gXOO4wzoaO7JLsP5lPB1raiHAe2k6wpPkOmdPVmbcxhAOMvW
KEC+WbQoWvMaA7o2xx/Jx/M55+3KjGNA8c9GRbk43g27pK4fYICPdQyThLzn
TPvRAQMGuFimHkxFlnVR2V6uwYDnas+lryD/oe+y7JI0A6ziW9OScTy2NHet
odNBQXHCKx6fb4vf2sQ/pMONPQE3jiGfEktre2TT4U7j3b1heD7vHMSGV+nQ
9sxnNgjHS+Rfhe/D6RCzu5Thh2xV/0p18Vo65I3/quWI53NnmiVcRocU0bE3
Dng+4RvfvFGjAzNR7GSL92Nh1ZnwYRrYhF74sh75YUg55WUFDaJNAwU6yF2B
95Y6F9JAeVL1sTqyhP9V/95bNNi3XW+tErK3+6HPE9E0oMT1xU/PCuwSnX9d
dPkwDZoNnmwfRi7dZr17kRcNVFoXt7KRpTZqfLAwowG/KVDuM/Jq8+8qDQY0
2J3XVdWOvHcNZ5eXOg1SQ3WXvkV+YlDfGCUagqR8kkQZsq/SydqnT4dAeUaz
Ixk5WebArO29IRisOUaJRX723WlTW9oQZFiGZUYgy44YVHEjhiCAIPPOE3kd
X2XsrD96fmzb1u3IfswpMyWXISi5FuplhVz2pfMpwWQInDfHLtVF/tpdw6vS
HYKTeqYflZDlPzwy3qk0BKx4H6WZbwK7/Q1JRcHsQdh0ynuyF1nxyfp7D4oH
oT6Y6p2JbFG85Ot60iD0yE7/GY8ccF9Rt+7SIOyyKosPQ664Tb1NDh4Ex7rP
2puRKdfbuo57D8LTrs5BArLy1Wr179sGoXZv7LQ6cuD5zLTFhoMgoz1vijoj
sLsWG99aqjkI1arzPzUhV50MU9wkPQhkOVXaU2SVkC0XfQepMB1lkhKLXO0m
jruTT4V6h4RVUsg0p/6XKzOooHXOlUuZRvG4rXnyRQIVHlF6S2qRgzfcj+k6
QAW5VN1vROQMs7TyQ79SoUvrXpw38qvVRJHYlgpnDc7+vRZZ3cAjQm0JFRxD
W0WUKdQf6dmW5M2nAk+hNbcKOUTLiGX6jQJn1prPXkOuUZQKcv1CgRDOl4fm
yGHDz/2uZlOgK7X5TOQkqo+/iKyPpFBgTdQK4ibkxti1ug5EChS6Zg3IIhtK
PP085UOBF9XxD25PoP7OgV/V7UiBSuXtjH3ISRdXk8o2UMA8s91nKTJZudQ7
TIcCPgfWZeSNo/Vx41hsV6DAJxe+5X5kmxtGCw0myfC8yPSDDnK2zsOPn3vI
4JPUnJUyJrDbvbLQzZFEhqEVDjluowK730JppoaXybD88q7h6REUP6UrVCXP
kMH+rGxpAfICswfvq/aQYfCBjoA3LLCzO0UtvbmDDFo5eq5pyMf+1E+NtCTD
jd90qoyRW+zynFYtIsOkWqurvxh9nyUNEKTlyLDf5paTSIT671Qb9VreAPRP
nBQkIitnbUw3fTwAY1U6zSQhyr8y8ysqJgOgcKuhJIuPzjer8h1vlQaAJOvU
r4q8CdbJxnP6wcy8pC2Rh76XWtZc4D3qh+Xnrx7cy0Xr5/HY/veUfpANKXv9
iiOwe95jLOEf1g8r94066SGH01bFtRL6obxHeKCVhfqLo0XWvyn0Q4mJI0kP
+Wex4ZQ16ysEtbMDjzBR/6n6TZVG/wp+Na8e+CD/HzWH9lQ=
     "]], LineBox[CompressedData["
1:eJxF1gk01NsfAHCULElF8UdJtiwt2kR5fakXnmTLkixPytMrIbK0KCS0kmSJ
lC0URcpSo16ylC0JM5UwgzEL85sZ67OM/73Ved1z7rnnc+453+8933vPud/V
nn52XiJCQkIEmniVyy2ZtR78Bq6vSNnODAJuzK9c6SreDbmjrpvkmARcOTAp
ckOrGxzcJUtrkaMLtzFem3fDVeWdY34sAs7blz1Vu9wN6/qWuj1nE3AmfyzZ
oaAbnCz0PtgMERA8syUs5n03lLv1pQ0i++aUmrEleqBE+ctHMQ4B7qPFXU+v
9ED64ms2clwCDppz3/Q/7IFK01SIR3ZI35An19gD4p1rLy/gEaCpSjaoEu2F
EqfYOwxk9aZg3c7lvXCvKTHZnk+AarCcMqHRC7aTJOcqZOUGh3mrTXvhZOSx
uEsjBKw4NTZm6NgLD+epbxpAVlS+zbD7qxeKT/tMmowSIBfQ3hwV3Qudzy+b
jiBLK+5PYdT1gp93psa2cQKkavhXhMm94NBnrRmJLOmbEKY42As+x48wGpAX
VH/0tBSjgt5G3qjDBAHzfU46eMlTIcNgp0cKsojcUvPza6hQdC2rhYIs+Ntm
XbEZFeZIirz9kwTMyHJXvXeiQs7O36tvIE9VxcnQvKkwo1neWo88vvTDhGws
FRwcZ79s+ZcATuW+6pB3VFCfrhedQdaQqD91lkyFLWaNy9dMEeB6wHjNBToV
Lk7m8myQG8Y3XYueTwM9ssyGTOTczf9zvG1MA/GQxdlbpgnoirwpnmpNgxgy
ecwRWaZN8mW6Ow1kvSbtQpHD/WdX5ZyjgUnXJbMKZNciGvNpBQ0I8m8t62YI
uDXjkl5WT4O/8tO1/0Bu2Nth9aKTBhXT2m8OIxuw6kvfjNIgcMv1F0nIsmuK
wlr1+sDoktVfo8gWwZp67dAHeTaKWyRnUb7aezSyVR+0hrV6rULmHE4w6/Hp
A51UmwXmyA33Q5Zy8vtgnGb5OAFZmMt9yyvvg32VAukcZAM4FjxW1wccEfOR
Z8gPvrl+nenvg/pHJ+07kCMUd+UuXN0P6Vevti8REFDx90unxXr94HFd8bEy
Mqdii6Qs9MM9nQj1tciuTmv8FN364U9fCn8PskGilKF2aj9QnK67ByH79V1i
r83vh/HMP46GIz/YNHdXr7wfLuoIVK8iL/vIEzHo6If8VfLP7iETi8hNpksH
ICx85YVaZE03mwsWKgOQo6extwXnK3y/0WrDAJC09CidyA0WpCSHfQMwsMja
aBDHj8n0OHJ5AGp50wdF5wjwKDnxpDB1AC5mi41IISt+NRSMFgxAdfM6m2XI
N9a3pV1qGICW/G4PVWTzAxms5i8DEPrqo7w2skjkMUM5NjKz+M4G5OAOEfKD
hXSQrgqWNELWm2vRIJTokNLiMWWCzNJKO7VtLR22R+4kmSG7n9ss886SDpHB
7i/tkE3VjuxjXqeDZGh+41/IQvv00jdm0KEmesLvOPKL4BnW6cd0sB/Zw/VD
Xt+QGCv5gQ6VtlsvhyIzRjzIdj10IG6zs88hZ61cp5lG0IHq1pQRjix3svat
7pJBmLxJNYhFbr1zU+aUyiDIJAx/vop8pcbtEElvEISLP7nHIQvkxwWWtoMg
QY+XT0Kmv9Lc7pswCDb7FV2ykO8z+LFlWYMAfwRuzEU+KPOaLHg6CEWnG3h5
yC1eTkFxnwZBY4XC5iLk2Di1GnLfIPBuOj5/gryrkpBRGR2EjhRl9afIZVKx
xcXLGOAfmvu+DNlf335uUp0BtbejhCuRdTxUrEy2MkBVdoPWS+SM0gr2RwcG
OHMmdr9Gjj7I1BxJYsCut/9W1yEbRz0P2pHHgOPe/PPvkKeKImouljMg6e+Q
dQ3IvsKKnssoDHB6XnO4GVlLl17symDAIjP7oRZkmv3TuZxJBhyZEBxtRXbM
t7i7VYEJJkOyxp+Ql7TJDYVpM6HBa31aO3LDNG17nSETXifUsDuQd1qfpTge
ZEIwOc+Xgqwx/kg2NI0J1HMZ874h/6/WVvXRQya039ok3I0smTih113JBBYp
ZQKbu3G31e8UJiRyCz70IpNOfIldspwFts76m/qRnxiFJ+9WZ8GYM2kaO2uh
5oPgzSy4VXb99QCud8HJt122LPCvLtMfRLYfEBfk32BBj7LHIBPZ7Nljqa67
LJBLj4lhIW+/aK+0uIgF4ZaaamxkldX3DYIaWWDXsnffEDLbdVugiTgbvA8n
+XOQu3W/RZySZ4PMkW8EdutUZHyeJhsMaJePE/g+U1qKFu1hg6js2QNc5Mh2
L8bnCDZEa/ss5CMHZS+ckLrJBtkTCf7YRwNKRI3vs0Hoxtc2bKsls6oPXrHh
DEUrbgRZwTLRLWCaDckPWhmjyFJK231yJYdg2Hiz4Rh+r8yeMxSFIYg1sI7B
7o/RTdlpMAStb0dXjCMXv61ukwwaAvrZvA0TyNkJR6m/RQ2BTfZlP+ykQ9Jc
/1tDQKtOL8I+N+e8iFwyBLXTl9Uncb128MyyOUMQmkIRYG+XTHbsnB2CyYi7
G/9FXvvZyEti0TCIn+R7YsuExEb66Q4D5Z+gN9jdT1dV7Tg6DPtfj/hOITcb
BOiohgxDiURUEjbpVU2yePQwjKlOk7DTGv4O6MgeBpFa0oJp5AO00jV+PcNQ
K+lyA9vs6ILbDpxhiCrgFmHrcw6IGM0Og1xzbhP2sqnZLnElDlgdiRGbQf64
1Dwhy5ED60saA7H/Sb4zF+vFgc1pItexi1cO+/id4sCUdXQu9g3tBDOjBA7Y
fYtpx7Yw6ZrpaOZA5YFxnVlkw/r1x0hdHPjdTx6wtfZFkLPYHFAIKrDDFnPW
fOonQcC95Xqh2DX+/t4Sewh4rqBXhV06Xt1O7Ed9A8ukGTvr3PJdnZ4ErI6i
dmFHxL5YkR2O/vmizinsnffntxmRUB23DW0UIK/TdAK1RgLeuPyzE3tFYUGh
xBf0L9gZ7sWeLreK6UR9Q2KN2mHsLm9L5QoFLiy0XhmH3f5wzF53NRdiFF1S
sRuHM65maHFBcoVNNvaLQN5k1DYuKLzzLsNOuZD0ydaBC130yM/Y8dUgWevK
BRrnCRU7RpRpbHCEC/O+ZjGxg6/ueKwcyIU173onsR2Se2PZ8VzQOTS4bA7X
16x0kXAqimc3pYT9buJSglwmFyh1narY2w/oppuUcEG5gr8BO1BcoOJUyQVP
p6362IUVrbk+b7iQV2VmhK2sEPwk+SMXmJlUM2yn9+Zbij5zIXXg+D7s+NNK
ldVULvica7TDnvfln+phHhf8SIvdsBl3FnbuluFBhlKLH/bqvd0HnRV5sJys
fgr74HRxj68qDxI1D4ZiN7k4MlM38eDlhSPh2KJS2r5PtvPAOGhHFPZO0jS/
ZhcP5MmjMdglKzJnCDseiByVicNmNQVGiLrw4JhFaAK2epjpAqXDPFghVHMb
O+kbe7FpIA/qRJekY5/J0FdLv8WDZNm4POxSK4n8kjQenHU0eIg9JPi6tj4b
nV+huRDb/c8IfX4pDyJvvSzBTl5s/1KMxANeiNwz7NbXmsYra3hgY/BnGfZu
laY/zNt5cCuE9AK7LPzk/sB+HlwII7/C1qLKuWWM8mBO/1k1tlTWIf/RZXwg
bN+8xz4vInZmlQYfTE9ONmFzPQsvWmzlg2ed4AO251vb60F7+JC+ldyG3aE2
kXTfgQ8BIVEd2OZR6fcbvfggriRBwX7Rb/JwPIgP5bHeX7Azcq9VWSbxweXJ
i27s0eIrNqHP+CB8yYaGvZcU25fdxoeYgIsD2Fn10cEfuHw4puLOwJ5si5KY
lh6BzUtZLOwcZvgGu70jwHmjT2DbCoU5FMSMQIlwNh/74bqgTCehUXBmxkxg
z3c5MSx6ehQoI5lT2Ey3qxaF58cgnCIkwG7xKMizixoHPsVkDntX+SGR3NAJ
CD397LufL1J0m/CZhBwh2ndzPt3NuuD6L+h0j3y35p3VDDHLKaDJT393vPgn
/mfraTinLfjuqeCo2Uf7Z+CV9dx38w1aRXVMZyGq8ofZU0rS+QYCaO37YTmv
21/9YA4Sxn74vndMu5KakLHKzA+ntBcUK+YIGV8T/HC8SdM1BQ1h44C5H7am
vPT2vStsXPfT0n6Pdr1dLmLM+mn6541Cv6WIGE/+9KvfK6rKFOcZC376MPXO
jkvK84yFvg8uiJ8Pq9yv+st25buec7V/ma7dXKhj+MvSi2lpGU6/4rl/Xngm
OvHX/uyJP/Udpef/Z2GxtlTd2V/WNw+othBa8J+nugoZy/m/vL5OeUjytNh/
PvwkHr2DX/4/6uRpvg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.9975},
  PlotRange->{{-3, 3}, {0.9971130559915298, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5173685576875*^9, 3.517368617859375*^9}, {
   3.5173686585*^9, 3.51736866971875*^9}, 3.51736872034375*^9, 
   3.51736938146875*^9, 3.51738096078125*^9, 3.517403413794146*^9, 
   3.517403644341688*^9, 3.517452911112113*^9, 3.517455175281537*^9, 
   3.517456889734035*^9, 3.517456973891555*^9, 3.517457096947116*^9, 
   3.517457297415167*^9, 3.517479416021364*^9, 3.517479498887932*^9, 
   3.517487298597713*^9, 3.517489021692338*^9, 3.517489110986077*^9, 
   3.517489182010219*^9, 3.517490112605683*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"var", "[", "\[Sigma]test", "]"}], "\[IndentingNewLine]", 
 RowBox[{"2", "-", "%"}], "\[IndentingNewLine]", 
 RowBox[{"%", "/", "2"}]}], "Input",
 CellChangeTimes->{{3.5172941178500786`*^9, 3.5172942291601343`*^9}, {
  3.517313049045733*^9, 3.517313051556862*^9}, {3.517313096571965*^9, 
  3.517313104737426*^9}, {3.517313144367777*^9, 3.517313168712923*^9}, {
  3.517313432449607*^9, 3.517313435447682*^9}, {3.517313598888485*^9, 
  3.517313608487318*^9}, {3.517316091043747*^9, 3.5173160924057055`*^9}, {
  3.517316897814842*^9, 3.517316906434141*^9}, {3.517368749828125*^9, 
  3.517368759140625*^9}, {3.517455193248736*^9, 3.517455193746073*^9}, {
  3.517457183235456*^9, 3.517457184264813*^9}, {3.51745725621418*^9, 
  3.517457265019361*^9}, {3.517479607557084*^9, 3.517479645624666*^9}, {
  3.517487511760026*^9, 3.517487518067434*^9}, {3.517491586996197*^9, 
  3.517491646371555*^9}, {3.51749246179203*^9, 3.517492464506911*^9}, {
  3.518498996896453*^9, 3.518499006460205*^9}}],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{
   SubsuperscriptBox["\[Integral]", 
    RowBox[{"-", "3"}], "3"], 
   RowBox[{
    FractionBox[
     RowBox[{"0.5549435567551064`", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "3.869969040247678`"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"]}]], "-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "3.869969040247678`"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "y"}], ")"}], "2"]}]]}], ")"}], "2"]}], 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "3.869969040247678`"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"]}]], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "3.869969040247678`"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "y"}], ")"}], "2"]}]]}]], 
    RowBox[{"\[DifferentialD]", "y"}]}]}]}]], "Output",
 CellChangeTimes->{{3.517491602334678*^9, 3.517491653501485*^9}}],

Cell[BoxData[
 RowBox[{"2", "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{"-", "3"}], "3"], 
    RowBox[{
     FractionBox[
      RowBox[{"0.5549435567551064`", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "3.869969040247678`"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"]}]], "-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "3.869969040247678`"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "y"}], ")"}], "2"]}]]}], ")"}], "2"]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "3.869969040247678`"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"]}]], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "3.869969040247678`"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "y"}], ")"}], "2"]}]]}]], 
     RowBox[{"\[DifferentialD]", "y"}]}]}]}]}]], "Output",
 CellChangeTimes->{{3.517491602334678*^9, 3.51749165350504*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "-", 
    RowBox[{"2", " ", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", 
       RowBox[{"-", "3"}], "3"], 
      RowBox[{
       FractionBox[
        RowBox[{"0.5549435567551064`", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "3.869969040247678`"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"]}]], "-", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "3.869969040247678`"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "y"}], ")"}], "2"]}]]}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "3.869969040247678`"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "y"}], ")"}], "2"]}]], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "3.869969040247678`"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "y"}], ")"}], "2"]}]]}]], 
       RowBox[{"\[DifferentialD]", "y"}]}]}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.517491602334678*^9, 3.517491653507472*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"norm\[Sigma]List", " ", "=", " ", 
  RowBox[{"Range", "[", 
   RowBox[{".03", ",", ".13", ",", " ", ".0001"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"indexLim", "=", 
  RowBox[{"Length", "[", "norm\[Sigma]List", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mseinList", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "norm\[Sigma]List"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varoutList", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", 
     RowBox[{"Length", "[", "mseinList", "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.517489333768326*^9, 3.517489358608765*^9}, {
   3.517489615061025*^9, 3.517489625950623*^9}, {3.517489665750609*^9, 
   3.517489675297784*^9}, {3.517489706643328*^9, 3.517489856822883*^9}, {
   3.517489916302426*^9, 3.517489960268777*^9}, {3.517490053925956*^9, 
   3.517490058955*^9}, {3.517490129150953*^9, 3.51749013436421*^9}, {
   3.517490176572708*^9, 3.517490188024034*^9}, {3.517490930311027*^9, 
   3.517490970577974*^9}, {3.517491135547926*^9, 3.517491136472018*^9}, {
   3.517491726061786*^9, 3.517491778999122*^9}, {3.517491906824362*^9, 
   3.517492002828753*^9}, {3.517492044572461*^9, 3.517492046473235*^9}, {
   3.517492118239716*^9, 3.517492189853565*^9}, {3.517492251464114*^9, 
   3.517492260268488*^9}, {3.51749232186118*^9, 3.517492347990273*^9}, 
   3.517492474491032*^9, {3.51749277937609*^9, 3.51749277948537*^9}, {
   3.517493009356789*^9, 3.517493009662195*^9}, {3.517493132000967*^9, 
   3.517493166216491*^9}, {3.517493296965665*^9, 3.517493383232709*^9}, {
   3.517493438996969*^9, 3.517493465134697*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.03`", ",", "0.0301`", ",", "0.030199999999999998`", ",", "0.0303`", ",", 
   "0.0304`", ",", "0.0305`", ",", "0.0306`", ",", "0.030699999999999998`", 
   ",", "0.030799999999999998`", ",", "0.0309`", ",", "0.031`", ",", 
   "0.0311`", ",", "0.0312`", ",", "0.0313`", ",", "0.0314`", ",", "0.0315`", 
   ",", "0.031599999999999996`", ",", "0.0317`", ",", "0.0318`", ",", 
   "0.0319`", ",", "0.032`", ",", "0.0321`", ",", "0.0322`", ",", "0.0323`", 
   ",", "0.0324`", ",", "0.0325`", ",", "0.0326`", ",", "0.0327`", ",", 
   "0.032799999999999996`", ",", "0.0329`", ",", "0.033`", ",", "0.0331`", 
   ",", "0.0332`", ",", "0.033299999999999996`", ",", "0.0334`", ",", 
   "0.0335`", ",", "0.0336`", ",", "0.0337`", ",", "0.0338`", ",", "0.0339`", 
   ",", "0.034`", ",", "0.0341`", ",", "0.0342`", ",", "0.0343`", ",", 
   "0.0344`", ",", "0.034499999999999996`", ",", "0.0346`", ",", "0.0347`", 
   ",", "0.0348`", ",", "0.0349`", ",", "0.034999999999999996`", ",", 
   "0.0351`", ",", "0.0352`", ",", "0.0353`", ",", "0.0354`", ",", "0.0355`", 
   ",", "0.0356`", ",", "0.0357`", ",", "0.0358`", ",", "0.0359`", ",", 
   "0.036`", ",", "0.0361`", ",", "0.036199999999999996`", ",", "0.0363`", 
   ",", "0.0364`", ",", "0.0365`", ",", "0.0366`", ",", 
   "0.036699999999999997`", ",", "0.0368`", ",", "0.0369`", ",", "0.037`", 
   ",", "0.0371`", ",", "0.0372`", ",", "0.0373`", ",", "0.0374`", ",", 
   "0.0375`", ",", "0.0376`", ",", "0.0377`", ",", "0.0378`", ",", 
   "0.037899999999999996`", ",", "0.038`", ",", "0.0381`", ",", "0.0382`", 
   ",", "0.0383`", ",", "0.0384`", ",", "0.0385`", ",", "0.0386`", ",", 
   "0.0387`", ",", "0.0388`", ",", "0.0389`", ",", "0.039`", ",", 
   "0.039099999999999996`", ",", "0.0392`", ",", "0.0393`", ",", "0.0394`", 
   ",", "0.0395`", ",", "0.039599999999999996`", ",", "0.0397`", ",", 
   "0.0398`", ",", "0.0399`", ",", "0.04`", ",", "0.0401`", ",", "0.0402`", 
   ",", "0.0403`", ",", "0.0404`", ",", "0.0405`", ",", "0.0406`", ",", 
   "0.0407`", ",", "0.040799999999999996`", ",", "0.0409`", ",", "0.041`", 
   ",", "0.0411`", ",", "0.0412`", ",", "0.041299999999999996`", ",", 
   "0.0414`", ",", "0.0415`", ",", "0.0416`", ",", "0.0417`", ",", "0.0418`", 
   ",", "0.0419`", ",", "0.042`", ",", "0.0421`", ",", "0.0422`", ",", 
   "0.0423`", ",", "0.0424`", ",", "0.042499999999999996`", ",", "0.0426`", 
   ",", "0.0427`", ",", "0.0428`", ",", "0.0429`", ",", "0.043`", ",", 
   "0.0431`", ",", "0.0432`", ",", "0.0433`", ",", "0.0434`", ",", "0.0435`", 
   ",", "0.0436`", ",", "0.0437`", ",", "0.0438`", ",", "0.0439`", ",", 
   "0.044`", ",", "0.0441`", ",", "0.044199999999999996`", ",", "0.0443`", 
   ",", "0.0444`", ",", "0.0445`", ",", "0.0446`", ",", "0.0447`", ",", 
   "0.0448`", ",", "0.0449`", ",", "0.045`", ",", "0.0451`", ",", "0.0452`", 
   ",", "0.0453`", ",", "0.0454`", ",", "0.0455`", ",", "0.0456`", ",", 
   "0.0457`", ",", "0.0458`", ",", "0.045899999999999996`", ",", "0.046`", 
   ",", "0.0461`", ",", "0.0462`", ",", "0.0463`", ",", "0.0464`", ",", 
   "0.0465`", ",", "0.0466`", ",", "0.0467`", ",", "0.0468`", ",", "0.0469`", 
   ",", "0.047`", ",", "0.0471`", ",", "0.0472`", ",", "0.0473`", ",", 
   "0.0474`", ",", "0.0475`", ",", "0.047599999999999996`", ",", "0.0477`", 
   ",", "0.0478`", ",", "0.0479`", ",", "0.048`", ",", "0.0481`", ",", 
   "0.0482`", ",", "0.0483`", ",", "0.0484`", ",", "0.0485`", ",", "0.0486`", 
   ",", "0.0487`", ",", "0.0488`", ",", "0.0489`", ",", "0.049`", ",", 
   "0.0491`", ",", "0.0492`", ",", "0.0493`", ",", "0.0494`", ",", "0.0495`", 
   ",", "0.0496`", ",", "0.0497`", ",", "0.0498`", ",", "0.0499`", ",", 
   "0.05`", ",", "0.0501`", ",", "0.0502`", ",", "0.0503`", ",", "0.0504`", 
   ",", "0.0505`", ",", "0.0506`", ",", "0.0507`", ",", "0.0508`", ",", 
   "0.0509`", ",", "0.051`", ",", "0.0511`", ",", "0.0512`", ",", "0.0513`", 
   ",", "0.0514`", ",", "0.0515`", ",", "0.0516`", ",", "0.0517`", ",", 
   "0.0518`", ",", "0.0519`", ",", "0.052`", ",", "0.0521`", ",", "0.0522`", 
   ",", "0.0523`", ",", "0.0524`", ",", "0.0525`", ",", "0.0526`", ",", 
   "0.0527`", ",", "0.0528`", ",", "0.0529`", ",", "0.053`", ",", "0.0531`", 
   ",", "0.0532`", ",", "0.0533`", ",", "0.0534`", ",", "0.0535`", ",", 
   "0.0536`", ",", "0.0537`", ",", "0.0538`", ",", "0.0539`", ",", "0.054`", 
   ",", "0.0541`", ",", "0.0542`", ",", "0.0543`", ",", "0.0544`", ",", 
   "0.0545`", ",", "0.0546`", ",", "0.0547`", ",", "0.0548`", ",", "0.0549`", 
   ",", "0.055`", ",", "0.0551`", ",", "0.0552`", ",", "0.0553`", ",", 
   "0.0554`", ",", "0.0555`", ",", "0.0556`", ",", "0.0557`", ",", "0.0558`", 
   ",", "0.0559`", ",", "0.056`", ",", "0.0561`", ",", "0.0562`", ",", 
   "0.0563`", ",", "0.0564`", ",", "0.0565`", ",", "0.0566`", ",", "0.0567`", 
   ",", "0.0568`", ",", "0.0569`", ",", "0.057`", ",", "0.0571`", ",", 
   "0.0572`", ",", "0.0573`", ",", "0.0574`", ",", "0.0575`", ",", "0.0576`", 
   ",", "0.0577`", ",", "0.0578`", ",", "0.0579`", ",", "0.058`", ",", 
   "0.0581`", ",", "0.0582`", ",", "0.0583`", ",", "0.0584`", ",", "0.0585`", 
   ",", "0.0586`", ",", "0.0587`", ",", "0.0588`", ",", "0.0589`", ",", 
   "0.059`", ",", "0.0591`", ",", "0.0592`", ",", "0.0593`", ",", "0.0594`", 
   ",", "0.0595`", ",", "0.0596`", ",", "0.0597`", ",", "0.0598`", ",", 
   "0.0599`", ",", "0.06`", ",", "0.0601`", ",", "0.060200000000000004`", ",",
    "0.0603`", ",", "0.0604`", ",", "0.0605`", ",", "0.0606`", ",", "0.0607`",
    ",", "0.0608`", ",", "0.0609`", ",", "0.061`", ",", "0.0611`", ",", 
   "0.0612`", ",", "0.0613`", ",", "0.0614`", ",", "0.0615`", ",", "0.0616`", 
   ",", "0.0617`", ",", "0.0618`", ",", "0.061900000000000004`", ",", 
   "0.062`", ",", "0.0621`", ",", "0.0622`", ",", "0.0623`", ",", "0.0624`", 
   ",", "0.0625`", ",", "0.0626`", ",", "0.0627`", ",", "0.0628`", ",", 
   "0.0629`", ",", "0.063`", ",", "0.0631`", ",", "0.0632`", ",", "0.0633`", 
   ",", "0.0634`", ",", "0.0635`", ",", "0.0636`", ",", "0.0637`", ",", 
   "0.0638`", ",", "0.0639`", ",", "0.064`", ",", "0.0641`", ",", 
   "0.06420000000000001`", ",", "0.0643`", ",", "0.0644`", ",", "0.0645`", 
   ",", "0.0646`", ",", "0.0647`", ",", "0.0648`", ",", "0.0649`", ",", 
   "0.065`", ",", "0.0651`", ",", "0.0652`", ",", "0.0653`", ",", "0.0654`", 
   ",", "0.0655`", ",", "0.0656`", ",", "0.0657`", ",", "0.0658`", ",", 
   "0.0659`", ",", "0.066`", ",", "0.0661`", ",", "0.0662`", ",", "0.0663`", 
   ",", "0.0664`", ",", "0.0665`", ",", "0.0666`", ",", "0.0667`", ",", 
   "0.0668`", ",", "0.0669`", ",", "0.067`", ",", "0.0671`", ",", "0.0672`", 
   ",", "0.0673`", ",", "0.0674`", ",", "0.0675`", ",", 
   "0.06760000000000001`", ",", "0.0677`", ",", "0.0678`", ",", "0.0679`", 
   ",", "0.068`", ",", "0.0681`", ",", "0.0682`", ",", "0.0683`", ",", 
   "0.0684`", ",", "0.0685`", ",", "0.0686`", ",", "0.0687`", ",", "0.0688`", 
   ",", "0.0689`", ",", "0.069`", ",", "0.0691`", ",", "0.0692`", ",", 
   "0.0693`", ",", "0.0694`", ",", "0.0695`", ",", "0.0696`", ",", "0.0697`", 
   ",", "0.0698`", ",", "0.0699`", ",", "0.07`", ",", "0.0701`", ",", 
   "0.0702`", ",", "0.0703`", ",", "0.0704`", ",", "0.07050000000000001`", 
   ",", "0.0706`", ",", "0.0707`", ",", "0.0708`", ",", "0.0709`", ",", 
   "0.07100000000000001`", ",", "0.0711`", ",", "0.0712`", ",", "0.0713`", 
   ",", "0.0714`", ",", "0.0715`", ",", "0.0716`", ",", "0.0717`", ",", 
   "0.0718`", ",", "0.0719`", ",", "0.072`", ",", "0.0721`", ",", "0.0722`", 
   ",", "0.0723`", ",", "0.0724`", ",", "0.0725`", ",", "0.0726`", ",", 
   "0.0727`", ",", "0.0728`", ",", "0.0729`", ",", "0.073`", ",", "0.0731`", 
   ",", "0.0732`", ",", "0.0733`", ",", "0.0734`", ",", "0.0735`", ",", 
   "0.0736`", ",", "0.0737`", ",", "0.0738`", ",", "0.07390000000000001`", 
   ",", "0.074`", ",", "0.0741`", ",", "0.0742`", ",", "0.0743`", ",", 
   "0.07440000000000001`", ",", "0.0745`", ",", "0.0746`", ",", "0.0747`", 
   ",", "0.0748`", ",", "0.0749`", ",", "0.075`", ",", "0.0751`", ",", 
   "0.0752`", ",", "0.0753`", ",", "0.0754`", ",", "0.0755`", ",", "0.0756`", 
   ",", "0.0757`", ",", "0.0758`", ",", "0.0759`", ",", "0.076`", ",", 
   "0.0761`", ",", "0.0762`", ",", "0.0763`", ",", "0.0764`", ",", "0.0765`", 
   ",", "0.0766`", ",", "0.0767`", ",", "0.07680000000000001`", ",", 
   "0.0769`", ",", "0.077`", ",", "0.0771`", ",", "0.0772`", ",", 
   "0.07730000000000001`", ",", "0.0774`", ",", "0.0775`", ",", "0.0776`", 
   ",", "0.0777`", ",", "0.07780000000000001`", ",", "0.0779`", ",", "0.078`",
    ",", "0.0781`", ",", "0.0782`", ",", "0.0783`", ",", "0.0784`", ",", 
   "0.0785`", ",", "0.0786`", ",", "0.0787`", ",", "0.0788`", ",", "0.0789`", 
   ",", "0.079`", ",", "0.0791`", ",", "0.0792`", ",", "0.0793`", ",", 
   "0.0794`", ",", "0.0795`", ",", "0.0796`", ",", "0.07970000000000001`", 
   ",", "0.0798`", ",", "0.0799`", ",", "0.08`", ",", "0.0801`", ",", 
   "0.08020000000000001`", ",", "0.0803`", ",", "0.0804`", ",", "0.0805`", 
   ",", "0.0806`", ",", "0.08070000000000001`", ",", "0.0808`", ",", 
   "0.0809`", ",", "0.081`", ",", "0.0811`", ",", "0.0812`", ",", "0.0813`", 
   ",", "0.0814`", ",", "0.0815`", ",", "0.0816`", ",", "0.0817`", ",", 
   "0.0818`", ",", "0.0819`", ",", "0.082`", ",", "0.0821`", ",", "0.0822`", 
   ",", "0.0823`", ",", "0.0824`", ",", "0.0825`", ",", "0.0826`", ",", 
   "0.0827`", ",", "0.0828`", ",", "0.0829`", ",", "0.083`", ",", 
   "0.08310000000000001`", ",", "0.0832`", ",", "0.0833`", ",", "0.0834`", 
   ",", "0.0835`", ",", "0.08360000000000001`", ",", "0.0837`", ",", 
   "0.0838`", ",", "0.0839`", ",", "0.084`", ",", "0.08410000000000001`", ",",
    "0.0842`", ",", "0.0843`", ",", "0.0844`", ",", "0.0845`", ",", "0.0846`",
    ",", "0.0847`", ",", "0.0848`", ",", "0.0849`", ",", "0.085`", ",", 
   "0.0851`", ",", "0.0852`", ",", "0.0853`", ",", "0.0854`", ",", "0.0855`", 
   ",", "0.0856`", ",", "0.0857`", ",", "0.0858`", ",", "0.0859`", ",", 
   "0.08600000000000001`", ",", "0.0861`", ",", "0.0862`", ",", "0.0863`", 
   ",", "0.0864`", ",", "0.08650000000000001`", ",", "0.0866`", ",", 
   "0.0867`", ",", "0.0868`", ",", "0.0869`", ",", "0.08700000000000001`", 
   ",", "0.0871`", ",", "0.0872`", ",", "0.0873`", ",", "0.0874`", ",", 
   "0.08750000000000001`", ",", "0.0876`", ",", "0.0877`", ",", "0.0878`", 
   ",", "0.0879`", ",", "0.088`", ",", "0.0881`", ",", "0.0882`", ",", 
   "0.0883`", ",", "0.0884`", ",", "0.0885`", ",", "0.0886`", ",", "0.0887`", 
   ",", "0.0888`", ",", "0.0889`", ",", "0.089`", ",", "0.0891`", ",", 
   "0.0892`", ",", "0.0893`", ",", "0.08940000000000001`", ",", "0.0895`", 
   ",", "0.0896`", ",", "0.0897`", ",", "0.0898`", ",", 
   "0.08990000000000001`", ",", "0.09`", ",", "0.0901`", ",", "0.0902`", ",", 
   "0.0903`", ",", "0.09040000000000001`", ",", "0.0905`", ",", "0.0906`", 
   ",", "0.0907`", ",", "0.0908`", ",", "0.09090000000000001`", ",", "0.091`",
    ",", "0.0911`", ",", "0.0912`", ",", "0.0913`", ",", "0.0914`", ",", 
   "0.0915`", ",", "0.0916`", ",", "0.0917`", ",", "0.0918`", ",", "0.0919`", 
   ",", "0.092`", ",", "0.0921`", ",", "0.0922`", ",", "0.09230000000000001`",
    ",", "0.0924`", ",", "0.0925`", ",", "0.0926`", ",", "0.0927`", ",", 
   "0.09280000000000001`", ",", "0.0929`", ",", "0.093`", ",", "0.0931`", ",",
    "0.0932`", ",", "0.09330000000000001`", ",", "0.0934`", ",", "0.0935`", 
   ",", "0.0936`", ",", "0.0937`", ",", "0.09380000000000001`", ",", 
   "0.0939`", ",", "0.094`", ",", "0.0941`", ",", "0.0942`", ",", 
   "0.09430000000000001`", ",", "0.0944`", ",", "0.0945`", ",", "0.0946`", 
   ",", "0.0947`", ",", "0.0948`", ",", "0.0949`", ",", "0.095`", ",", 
   "0.0951`", ",", "0.0952`", ",", "0.0953`", ",", "0.0954`", ",", "0.0955`", 
   ",", "0.0956`", ",", "0.09570000000000001`", ",", "0.0958`", ",", 
   "0.0959`", ",", "0.096`", ",", "0.0961`", ",", "0.09620000000000001`", ",",
    "0.0963`", ",", "0.0964`", ",", "0.0965`", ",", "0.0966`", ",", 
   "0.09670000000000001`", ",", "0.0968`", ",", "0.0969`", ",", "0.097`", ",",
    "0.0971`", ",", "0.09720000000000001`", ",", "0.0973`", ",", "0.0974`", 
   ",", "0.0975`", ",", "0.0976`", ",", "0.09770000000000001`", ",", 
   "0.0978`", ",", "0.0979`", ",", "0.098`", ",", "0.0981`", ",", "0.0982`", 
   ",", "0.0983`", ",", "0.0984`", ",", "0.0985`", ",", 
   "0.09860000000000001`", ",", "0.0987`", ",", "0.0988`", ",", "0.0989`", 
   ",", "0.099`", ",", "0.09910000000000001`", ",", "0.0992`", ",", "0.0993`",
    ",", "0.0994`", ",", "0.0995`", ",", "0.09960000000000001`", ",", 
   "0.0997`", ",", "0.0998`", ",", "0.0999`", ",", "0.1`", ",", 
   "0.10010000000000001`", ",", "0.1002`", ",", "0.1003`", ",", "0.1004`", 
   ",", "0.1005`", ",", "0.10060000000000001`", ",", "0.1007`", ",", 
   "0.1008`", ",", "0.1009`", ",", "0.101`", ",", "0.1011`", ",", "0.1012`", 
   ",", "0.1013`", ",", "0.1014`", ",", "0.1015`", ",", "0.1016`", ",", 
   "0.1017`", ",", "0.1018`", ",", "0.1019`", ",", "0.10200000000000001`", 
   ",", "0.1021`", ",", "0.1022`", ",", "0.1023`", ",", "0.1024`", ",", 
   "0.10250000000000001`", ",", "0.1026`", ",", "0.1027`", ",", "0.1028`", 
   ",", "0.1029`", ",", "0.10300000000000001`", ",", "0.1031`", ",", 
   "0.1032`", ",", "0.1033`", ",", "0.1034`", ",", "0.10350000000000001`", 
   ",", "0.1036`", ",", "0.1037`", ",", "0.1038`", ",", "0.1039`", ",", 
   "0.10400000000000001`", ",", "0.1041`", ",", "0.1042`", ",", "0.1043`", 
   ",", "0.1044`", ",", "0.1045`", ",", "0.1046`", ",", "0.1047`", ",", 
   "0.1048`", ",", "0.10490000000000001`", ",", "0.105`", ",", "0.1051`", ",",
    "0.1052`", ",", "0.1053`", ",", "0.10540000000000001`", ",", "0.1055`", 
   ",", "0.1056`", ",", "0.1057`", ",", "0.1058`", ",", 
   "0.10590000000000001`", ",", "0.106`", ",", "0.1061`", ",", "0.1062`", ",",
    "0.1063`", ",", "0.10640000000000001`", ",", "0.1065`", ",", "0.1066`", 
   ",", "0.1067`", ",", "0.1068`", ",", "0.10690000000000001`", ",", "0.107`",
    ",", "0.1071`", ",", "0.1072`", ",", "0.1073`", ",", 
   "0.10740000000000001`", ",", "0.1075`", ",", "0.1076`", ",", "0.1077`", 
   ",", "0.1078`", ",", "0.1079`", ",", "0.108`", ",", "0.1081`", ",", 
   "0.1082`", ",", "0.10830000000000001`", ",", "0.1084`", ",", "0.1085`", 
   ",", "0.1086`", ",", "0.1087`", ",", "0.10880000000000001`", ",", 
   "0.1089`", ",", "0.109`", ",", "0.1091`", ",", "0.1092`", ",", 
   "0.10930000000000001`", ",", "0.1094`", ",", "0.1095`", ",", "0.1096`", 
   ",", "0.1097`", ",", "0.10980000000000001`", ",", "0.1099`", ",", "0.11`", 
   ",", "0.1101`", ",", "0.1102`", ",", "0.11030000000000001`", ",", 
   "0.1104`", ",", "0.1105`", ",", "0.1106`", ",", "0.1107`", ",", 
   "0.11080000000000001`", ",", "0.1109`", ",", "0.111`", ",", "0.1111`", ",",
    "0.11120000000000001`", ",", "0.1113`", ",", "0.1114`", ",", "0.1115`", 
   ",", "0.1116`", ",", "0.11170000000000001`", ",", "0.1118`", ",", 
   "0.1119`", ",", "0.112`", ",", "0.1121`", ",", "0.11220000000000001`", ",",
    "0.1123`", ",", "0.1124`", ",", "0.1125`", ",", "0.1126`", ",", 
   "0.11270000000000001`", ",", "0.1128`", ",", "0.1129`", ",", "0.113`", ",",
    "0.1131`", ",", "0.11320000000000001`", ",", "0.1133`", ",", "0.1134`", 
   ",", "0.1135`", ",", "0.1136`", ",", "0.11370000000000001`", ",", 
   "0.1138`", ",", "0.1139`", ",", "0.114`", ",", "0.11410000000000001`", ",",
    "0.11420000000000001`", ",", "0.1143`", ",", "0.1144`", ",", "0.1145`", 
   ",", "0.11460000000000001`", ",", "0.1147`", ",", "0.1148`", ",", 
   "0.1149`", ",", "0.115`", ",", "0.11510000000000001`", ",", "0.1152`", ",",
    "0.1153`", ",", "0.1154`", ",", "0.1155`", ",", "0.11560000000000001`", 
   ",", "0.1157`", ",", "0.1158`", ",", "0.1159`", ",", "0.116`", ",", 
   "0.11610000000000001`", ",", "0.1162`", ",", "0.1163`", ",", "0.1164`", 
   ",", "0.1165`", ",", "0.11660000000000001`", ",", "0.1167`", ",", 
   "0.1168`", ",", "0.1169`", ",", "0.117`", ",", "0.11710000000000001`", ",",
    "0.1172`", ",", "0.1173`", ",", "0.1174`", ",", "0.11750000000000001`", 
   ",", "0.1176`", ",", "0.1177`", ",", "0.1178`", ",", "0.1179`", ",", 
   "0.11800000000000001`", ",", "0.1181`", ",", "0.1182`", ",", "0.1183`", 
   ",", "0.1184`", ",", "0.11850000000000001`", ",", "0.1186`", ",", 
   "0.1187`", ",", "0.1188`", ",", "0.1189`", ",", "0.11900000000000001`", 
   ",", "0.1191`", ",", "0.1192`", ",", "0.1193`", ",", "0.1194`", ",", 
   "0.11950000000000001`", ",", "0.1196`", ",", "0.1197`", ",", "0.1198`", 
   ",", "0.1199`", ",", "0.12000000000000001`", ",", "0.1201`", ",", 
   "0.1202`", ",", "0.1203`", ",", "0.12040000000000001`", ",", 
   "0.12050000000000001`", ",", "0.1206`", ",", "0.1207`", ",", "0.1208`", 
   ",", "0.12090000000000001`", ",", "0.121`", ",", "0.1211`", ",", "0.1212`",
    ",", "0.1213`", ",", "0.12140000000000001`", ",", "0.1215`", ",", 
   "0.1216`", ",", "0.1217`", ",", "0.1218`", ",", "0.12190000000000001`", 
   ",", "0.122`", ",", "0.1221`", ",", "0.1222`", ",", "0.1223`", ",", 
   "0.12240000000000001`", ",", "0.1225`", ",", "0.1226`", ",", "0.1227`", 
   ",", "0.1228`", ",", "0.12290000000000001`", ",", "0.123`", ",", "0.1231`",
    ",", "0.1232`", ",", "0.1233`", ",", "0.12340000000000001`", ",", 
   "0.1235`", ",", "0.1236`", ",", "0.1237`", ",", "0.12380000000000001`", 
   ",", "0.12390000000000001`", ",", "0.124`", ",", "0.1241`", ",", "0.1242`",
    ",", "0.12430000000000001`", ",", "0.1244`", ",", "0.1245`", ",", 
   "0.1246`", ",", "0.1247`", ",", "0.12480000000000001`", ",", "0.1249`", 
   ",", "0.125`", ",", "0.12510000000000002`", ",", "0.1252`", ",", "0.1253`",
    ",", "0.1254`", ",", "0.1255`", ",", "0.12560000000000002`", ",", 
   "0.1257`", ",", "0.1258`", ",", "0.1259`", ",", "0.126`", ",", "0.1261`", 
   ",", "0.1262`", ",", "0.1263`", ",", "0.1264`", ",", "0.1265`", ",", 
   "0.1266`", ",", "0.1267`", ",", "0.1268`", ",", "0.1269`", ",", "0.127`", 
   ",", "0.1271`", ",", "0.1272`", ",", "0.1273`", ",", "0.1274`", ",", 
   "0.1275`", ",", "0.1276`", ",", "0.1277`", ",", "0.1278`", ",", "0.1279`", 
   ",", "0.128`", ",", "0.1281`", ",", "0.1282`", ",", "0.1283`", ",", 
   "0.12840000000000001`", ",", "0.1285`", ",", "0.1286`", ",", "0.1287`", 
   ",", "0.1288`", ",", "0.12890000000000001`", ",", "0.129`", ",", "0.1291`",
    ",", "0.1292`", ",", "0.1293`", ",", "0.12940000000000002`", ",", 
   "0.1295`", ",", "0.1296`", ",", "0.1297`", ",", "0.1298`", ",", 
   "0.12990000000000002`", ",", "0.13`"}], "}"}]], "Output",
 CellChangeTimes->{{3.517492753402384*^9, 3.517492782805645*^9}, 
   3.517493010691476*^9, {3.517493139270625*^9, 3.517493167230164*^9}, 
   3.517493401758668*^9, 3.517493582758732*^9}],

Cell[BoxData["1001"], "Output",
 CellChangeTimes->{{3.517492753402384*^9, 3.517492782805645*^9}, 
   3.517493010691476*^9, {3.517493139270625*^9, 3.517493167230164*^9}, 
   3.517493401758668*^9, 3.517493582825596*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "mseinList", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"varoutList", "[", 
     RowBox[{"[", "i", "]"}], "]"}], "=", 
    RowBox[{"var", "[", 
     RowBox[{"mseinList", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"normvarout", "=", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"2", "-", "varoutList"}], "]"}], "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.517490502881468*^9, 3.517490532576237*^9}, {
   3.517490598645735*^9, 3.517490673818878*^9}, {3.517490855918686*^9, 
   3.517490897510171*^9}, {3.517491147169825*^9, 3.517491205324035*^9}, {
   3.517491257624066*^9, 3.517491258330501*^9}, {3.517491339082466*^9, 
   3.517491368340564*^9}, {3.517491419345813*^9, 3.517491438379123*^9}, {
   3.517491471643318*^9, 3.51749147231163*^9}, {3.517491685841764*^9, 
   3.517491699651687*^9}, {3.51749205487264*^9, 3.517492095823556*^9}, {
   3.517492198445659*^9, 3.517492244997227*^9}, {3.517492577696981*^9, 
   3.517492677245373*^9}, 3.517493419637971*^9, 3.517493508179779*^9, {
   3.517493556680549*^9, 3.517493575766331*^9}, {3.5184990153630066`*^9, 
   3.51849903649339*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.211563738223731`*^-8", ",", "1.2825326134446868`*^-8", ",", 
   "1.3571534340783842`*^-8", ",", "1.4355868716009468`*^-8", ",", 
   "1.5179992374214635`*^-8", ",", "1.6045629380734283`*^-8", ",", 
   "1.6954563419879776`*^-8", ",", "1.7908639460273434`*^-8", ",", 
   "1.890976908391906`*^-8", ",", "1.9959928154733575`*^-8", ",", 
   "2.1061160482283015`*^-8", ",", "2.2215577821782517`*^-8", ",", 
   "2.342536353783231`*^-8", ",", "2.469277426975225`*^-8", ",", 
   "2.6020140264648717`*^-8", ",", "2.7409867375816077`*^-8", ",", 
   "2.886443972727193`*^-8", ",", "3.038642160113625`*^-8", ",", 
   "3.197845910296593`*^-8", ",", "3.364328038379938`*^-8", ",", 
   "3.5383701191271655`*^-8", ",", "3.7202622205079194`*^-8", ",", 
   "3.910303636445178`*^-8", ",", "4.1088024649305055`*^-8", ",", 
   "4.316076362975707`*^-8", ",", "4.5324524466927585`*^-8", ",", 
   "4.75826751333841`*^-8", ",", "4.9938683410744034`*^-8", ",", 
   "5.2396118666031555`*^-8", ",", "5.495865340598982`*^-8", ",", 
   "5.7630067606950774`*^-8", ",", "6.041424449598765`*^-8", ",", 
   "6.331518354052434`*^-8", ",", "6.633699145552896`*^-8", ",", 
   "6.948389064120875`*^-8", ",", "7.276022029323315`*^-8", ",", 
   "7.617043973340287`*^-8", ",", "7.971912685533766`*^-8", ",", 
   "8.341098467479213`*^-8", ",", "8.725083966432123`*^-8", ",", 
   "9.124364863666301`*^-8", ",", "9.539449719042636`*^-8", ",", 
   "9.970860381791624`*^-8", ",", "1.0419132112637897`*^-7", ",", 
   "1.0884814072298354`*^-7", ",", "1.1368469154948713`*^-7", ",", 
   "1.1870674510028323`*^-7", ",", "1.239202190861377`*^-7", ",", 
   "1.293311751027204`*^-7", ",", "1.3494582518092102`*^-7", ",", 
   "1.4077053467342893`*^-7", ",", "1.4681182047837638`*^-7", ",", 
   "1.530763565904536`*^-7", ",", "1.5957097609931026`*^-7", ",", 
   "1.6630267574146984`*^-7", ",", "1.7327861212557139`*^-7", ",", 
   "1.805061113913098`*^-7", ",", "1.8799266798819048`*^-7", ",", 
   "1.9574594678495316`*^-7", ",", "2.0377378739944163`*^-7", ",", 
   "2.12084206863139`*^-7", ",", "2.2068539984321234`*^-7", ",", 
   "2.2958574308340474`*^-7", ",", "2.387937974024368`*^-7", ",", 
   "2.483183094703634`*^-7", ",", "2.581682180258227`*^-7", ",", 
   "2.6835265098945627`*^-7", ",", "2.788809306819573`*^-7", ",", 
   "2.8976257715473963`*^-7", ",", "3.010073108544731`*^-7", ",", 
   "3.1262505195694956`*^-7", ",", "3.246259271394436`*^-7", ",", 
   "3.3702027102400223`*^-7", ",", "3.4981862506722194`*^-7", ",", 
   "3.6303174555385453`*^-7", ",", "3.766706029306732`*^-7", ",", 
   "3.9074638480407486`*^-7", ",", "4.052705004919943`*^-7", ",", 
   "4.202545796916368`*^-7", ",", "4.3571047847468236`*^-7", ",", 
   "4.516502813967094`*^-7", ",", "4.6808630171923937`*^-7", ",", 
   "4.85031086183696`*^-7", ",", "5.024974192302523`*^-7", ",", 
   "5.204983193340951`*^-7", ",", "5.390470481092535`*^-7", ",", 
   "5.5815710986451`*^-7", ",", "5.778422547120243`*^-7", ",", 
   "5.981164803436911`*^-7", ",", "6.189940349177192`*^-7", ",", 
   "6.404894203893008`*^-7", ",", "6.626173931767454`*^-7", ",", 
   "6.853929694905503`*^-7", ",", "7.088314255554451`*^-7", ",", 
   "7.329483003859494`*^-7", ",", "7.577593976737518`*^-7", ",", 
   "7.832807912278028`*^-7", ",", "8.095288233089803`*^-7", ",", 
   "8.365201096260932`*^-7", ",", "8.642715411122381`*^-7", ",", 
   "8.92800287033424`*^-7", ",", "9.221237964318618`*^-7", ",", 
   "9.522597994582327`*^-7", ",", "9.832263115905349`*^-7", ",", 
   "1.0150416367427084`*^-6", ",", "1.0477243670425906`*^-6", ",", 
   "1.0812933860515628`*^-6", ",", "1.1157678723172637`*^-6", ",", 
   "1.1511672999287015`*^-6", ",", "1.1875114419579447`*^-6", ",", 
   "1.2248203711262562`*^-6", ",", "1.2631144660213423`*^-6", ",", 
   "1.302414406545438`*^-6", ",", "1.3427411831301583`*^-6", ",", 
   "1.384116093960941`*^-6", ",", "1.4265607501950939`*^-6", ",", 
   "1.4700970764058852`*^-6", ",", "1.5147473133581002`*^-6", ",", 
   "1.5605340183411087`*^-6", ",", "1.607480071497136`*^-6", ",", 
   "1.6556086726016161`*^-6", ",", "1.7049433471694186`*^-6", ",", 
   "1.7555079472320045`*^-6", ",", "1.807326650782315`*^-6", ",", 
   "1.8604239688801982`*^-6", ",", "1.9148247423217413`*^-6", ",", 
   "1.970554147412429`*^-6", ",", "2.027637695967144`*^-6", ",", 
   "2.0861012373085686`*^-6", ",", "2.1459709607096755`*^-6", ",", 
   "2.207829086886548`*^-6", ",", "2.271293181532741`*^-6", ",", 
   "2.334984894325487`*^-6", ",", "2.4000474455609933`*^-6", ",", 
   "2.467352930191069`*^-6", ",", "2.536228582261657`*^-6", ",", 
   "2.6067037803834125`*^-6", ",", "2.678807113354331`*^-6", ",", 
   "2.7525679070494746`*^-6", ",", "2.8280158419491386`*^-6", ",", 
   "2.905180958356901`*^-6", ",", "2.9840936552893993`*^-6", ",", 
   "3.0647846936959766`*^-6", ",", "3.1472851973468607`*^-6", ",", 
   "3.231626654276454`*^-6", ",", "3.3178409172274215`*^-6", ",", 
   "3.4059602077585183`*^-6", ",", "3.4960171143572083`*^-6", ",", 
   "3.5880445962144236`*^-6", ",", "3.682075982447408`*^-6", ",", 
   "3.7781449758744756`*^-6", ",", "3.876285652681943`*^-6", ",", 
   "3.976532463090265`*^-6", ",", "4.078920234018568`*^-6", ",", 
   "4.183484169639762`*^-6", ",", "4.2902598526017854`*^-6", ",", 
   "4.399283244693741`*^-6", ",", "4.510590687401006`*^-6", ",", 
   "4.624218906790212`*^-6", ",", "4.740205006958931`*^-6", ",", 
   "4.8585864796946154`*^-6", ",", "4.979401199367572`*^-6", ",", 
   "5.102687426594699`*^-6", ",", "5.228483807795392`*^-6", ",", 
   "5.3568293768568864`*^-6", ",", "5.48776355557834`*^-6", ",", 
   "5.621326155114126`*^-6", ",", "5.757557376417921`*^-6", ",", 
   "5.8964978101316845`*^-6", ",", "6.03818843869508`*^-6", ",", 
   "6.182670635457299`*^-6", ",", "6.329986167896706`*^-6", ",", 
   "6.480177194290171`*^-6", ",", "6.6332862692641825`*^-6", ",", 
   "6.789356339576003`*^-6", ",", "6.948430747333312`*^-6", ",", 
   "7.110553230438299`*^-6", ",", "7.275767922143572`*^-6", ",", 
   "7.444119352606471`*^-6", ",", "7.615652447556798`*^-6", ",", 
   "7.790412224428778`*^-6", ",", "7.968445017603187`*^-6", ",", 
   "8.149796637102469`*^-6", ",", "8.334513598384774`*^-6", ",", 
   "8.522642816033432`*^-6", ",", "8.714231601980593`*^-6", ",", 
   "8.909327668726874`*^-6", ",", "9.107979125122512`*^-6", ",", 
   "9.310234480031099`*^-6", ",", "9.516142641774472`*^-6", ",", 
   "9.725752916800445`*^-6", ",", "9.939115011459165`*^-6", ",", 
   "0.000010156279030337778`", ",", "0.000010377295477703719`", ",", 
   "0.00001060221525750471`", ",", "0.00001083108967114832`", ",", 
   "0.000011063970419722402`", ",", "0.000011300909603773057`", ",", 
   "0.000011541959720084982`", ",", "0.000011787173666344408`", ",", 
   "0.000012036604737586387`", ",", "0.000012290306625972747`", ",", 
   "0.000012548333421680269`", ",", "0.000012810739611790467`", ",", 
   "0.000013077580082176965`", ",", "0.000013348910111288248`", ",", 
   "0.00001362478537869638`", ",", "0.000013905261955660109`", ",", 
   "0.00001419039631123109`", ",", "0.000014480245307146866`", ",", 
   "0.00001477486620116153`", ",", "0.000015074316642604835`", ",", 
   "0.00001537865467782229`", ",", "0.000015687938741293372`", ",", 
   "0.000016002227662070823`", ",", "0.00001632158065978384`", ",", 
   "0.000016646057344082976`", ",", "0.000016975717715639327`", ",", 
   "0.000017310622162036715`", ",", "0.000017650831462434624`", ",", 
   "0.000017996406781684016`", ",", "0.000018347409670993464`", ",", 
   "0.000018703902067374045`", ",", "0.000019065946295637737`", ",", 
   "0.000019433605060847903`", ",", "0.000019806941454203475`", ",", 
   "0.000020186018948264994`", ",", "0.000020570901395844388`", ",", 
   "0.00002096165303211439`", ",", "0.000021358338469057436`", ",", 
   "0.000021761022700017563`", ",", "0.000022169771092706014`", ",", 
   "0.00002258464939264293`", ",", "0.000023005723719160542`", ",", 
   "0.000023433060566735442`", ",", "0.00002386672680199098`", ",", 
   "0.00002430678966180988`", ",", "0.000024753316754999588`", ",", 
   "0.000025206376059627722`", ",", "0.0000256660359191363`", ",", 
   "0.000026132365046005468`", ",", "0.000026605432516979555`", ",", 
   "0.00002708530777217888`", ",", "0.000027572060615321803`", ",", 
   "0.000028065761210172013`", ",", "0.000028566480080982615`", ",", 
   "0.000029074288109942614`", ",", "0.000029589256536399766`", ",", 
   "0.000030111456955972393`", ",", "0.00003064096131577543`", ",", 
   "0.00003117784191808415`", ",", "0.00003172217141556022`", ",", 
   "0.00003227402280836511`", ",", "0.000032833469447712815`", ",", 
   "0.000033400585028209306`", ",", "0.00003397544359096116`", ",", 
   "0.00003455811951913468`", ",", "0.00003514868753895506`", ",", 
   "0.00003574722271393327`", ",", "0.000036353800448196694`", ",", 
   "0.000036968496481715185`", ",", "0.0000375913868875255`", ",", 
   "0.00003822254807350767`", ",", "0.00003886205677861021`", ",", 
   "0.000039509990071406875`", ",", "0.000040166425346321866`", ",", 
   "0.00004083144032707153`", ",", "0.00004150511181455485`", ",", 
   "0.0000421875206871869`", ",", "0.00004287874436770256`", ",", 
   "0.00004357886186423521`", ",", "0.00004428795250055462`", ",", 
   "0.00004500609591551186`", ",", "0.000045733372061373956`", ",", 
   "0.00004646986120260266`", ",", "0.000047215643910303307`", ",", 
   "0.0000479708010640012`", ",", "0.00004873541384942115`", ",", 
   "0.000049509563754268626`", ",", "0.00005029333256667545`", ",", 
   "0.00005108680237664309`", ",", "0.000051890055569048243`", ",", 
   "0.00005270317482519715`", ",", "0.00005352624311949494`", ",", 
   "0.000054359343716448016`", ",", "0.00005520256017033098`", ",", 
   "0.00005605597546820551`", ",", "0.00005691967546050947`", ",", 
   "0.000057793743686196386`", ",", "0.000058678264804101765`", ",", 
   "0.00005957332384531888`", ",", "0.00006047900602246248`", ",", 
   "0.0000613953968543468`", ",", "0.00006232258213190178`", ",", 
   "0.0000632606479157305`", ",", "0.00006420968053455489`", ",", 
   "0.00006516976658255125`", ",", "0.00006614099291768483`", ",", 
   "0.00006712344665849024`", ",", "0.00006811721518185099`", ",", 
   "0.00006912238612377664`", ",", "0.00007013904737207532`", ",", 
   "0.00007116728706835218`", ",", "0.00007220719360312433`", ",", 
   "0.00007325885561593193`", ",", "0.00007432236199078623`", ",", 
   "0.00007539780185583655`", ",", "0.00007648526457959548`", ",", 
   "0.00007758483976916253`", ",", "0.00007869661726722654`", ",", 
   "0.00007982068715239876`", ",", "0.00008095713973343965`", ",", 
   "0.00008210606554992506`", ",", "0.00008326755536636199`", ",", 
   "0.00008444170017940511`", ",", "0.00008562859119076727`", ",", 
   "0.0000868283198390829`", ",", "0.00008804097777515008`", ",", 
   "0.00008926665686659341`", ",", "0.00009050544919120274`", ",", 
   "0.00009175744703959765`", ",", "0.00009302274290923229`", ",", 
   "0.00009430142950639375`", ",", "0.0000955935997368762`", ",", 
   "0.00009689934671031075`", ",", "0.00009821876373528049`", ",", 
   "0.00009955194431532366`", ",", "0.00010089898214937776`", ",", 
   "0.00010225997112700558`", ",", "0.00010363500532761805`", ",", 
   "0.00010502417901792072`", ",", "0.00010642758664236585`", ",", 
   "0.00010784532284435766`", ",", "0.00010927748243172442`", ",", 
   "0.0001107241603931497`", ",", "0.00011218545189384255`", ",", 
   "0.00011366145227109659`", ",", "0.00011515225703062626`", ",", 
   "0.00011665796184789912`", ",", "0.00011817866256269571`", ",", 
   "0.00011971445517766632`", ",", "0.00012126543585500027`", ",", 
   "0.00012283170091598183`", ",", "0.00012441334683710448`", ",", 
   "0.0001260104702478504`", ",", "0.00012762316792835904`", ",", 
   "0.00012925153680742874`", ",", "0.00013089567395907498`", ",", 
   "0.00013255567660064305`", ",", "0.00013423164209158678`", ",", 
   "0.00013592366792880561`", ",", "0.00013763185174620052`", ",", 
   "0.00013935629131112126`", ",", "0.00014109708452192393`", ",", 
   "0.0001428543294063056`", ",", "0.0001446281241186398`", ",", 
   "0.00014641856693708988`", ",", "0.0001482257562610556`", ",", 
   "0.00015004979061084`", ",", "0.00015189076917654365`", ",", 
   "0.0001537487895751921`", ",", "0.00015562395126467177`", ",", 
   "0.00015751635320127022`", ",", "0.00015942609446373268`", ",", 
   "0.000161353274238496`", ",", "0.00016329799181091786`", ",", 
   "0.00016526034656927369`", ",", "0.000167240437997207`", ",", 
   "0.00016923836567594996`", ",", "0.00017125422927810607`", ",", 
   "0.00017328812856731712`", ",", "0.0001753401633958207`", ",", 
   "0.00017741043370111953`", ",", "0.00017949903950398305`", ",", 
   "0.00018160608090767028`", ",", "0.00018373165809282277`", ",", 
   "0.00018587587131702055`", ",", "0.00018803882091100732`", ",", 
   "0.0001902206072786905`", ",", "0.00019242133089281133`", ",", 
   "0.00019464109229205828`", ",", "0.0001968799920815112`", ",", 
   "0.0001991381309280893`", ",", "0.00020141560955699855`", ",", 
   "0.00020371252875350798`", ",", "0.00020602898935739855`", ",", 
   "0.000208365092262075`", ",", "0.00021072093841023598`", ",", 
   "0.00021309662879487323`", ",", "0.00021549226445305436`", ",", 
   "0.00021790794646903144`", ",", "0.00022034377596535926`", ",", 
   "0.00022279985410711411`", ",", "0.00022527628209223494`", ",", 
   "0.0002277731611578515`", ",", "0.00023029059257173579`", ",", 
   "0.00023282867763174675`", ",", "0.00023538751766449817`", ",", 
   "0.00023796721402158383`", ",", "0.00024056786807968855`", ",", 
   "0.0002431895812355922`", ",", "0.00024583245490661376`", ",", 
   "0.00024849659052472717`", ",", "0.00025118208953944787`", ",", 
   "0.00025388905341128254`", ",", "0.0002566175836105078`", ",", 
   "0.0002593677816179474`", ",", "0.0002621397489183108`", ",", 
   "0.0002649335870010816`", ",", "0.0002677493973572975`", ",", 
   "0.00027058728147733024`", ",", "0.00027344734084977507`", ",", 
   "0.000276329676956788`", ",", "0.0002792343912757511`", ",", 
   "0.0002821615852739434`", ",", "0.00028511136040787477`", ",", 
   "0.0002880838181198442`", ",", "0.00029107905983816185`", ",", 
   "0.00029409718697326337`", ",", "0.00029713830091604443`", ",", 
   "0.00030020250303564033`", ",", "0.0003032898946783158`", ",", 
   "0.00030640057716357916`", ",", "0.0003095346517838493`", ",", 
   "0.00031269221980112505`", ",", "0.00031587338244754015`", ",", 
   "0.00031907824091859105`", ",", "0.0003223068963755793`", ",", 
   "0.0003255594499421699`", ",", "0.00032883600270083857`", ",", 
   "0.0003321366556929828`", ",", "0.0003354615099165903`", ",", 
   "0.00033881066632279744`", ",", "0.0003421842258161112`", ",", 
   "0.0003455822892496352`", ",", "0.00034900495742706816`", ",", 
   "0.00035245233109637564`", ",", "0.00035592451095023403`", ",", 
   "0.0003594215976251425`", ",", "0.000362943691697204`", ",", 
   "0.0003664908936815703`", ",", "0.0003700633040294443`", ",", 
   "0.0003736478416777045`", ",", "0.00037727090802508467`", ",", 
   "0.00038091948454321845`", ",", "0.00038459367141907563`", ",", 
   "0.00038829356876579624`", ",", "0.00039201927662180225`", ",", 
   "0.0003957708949506866`", ",", "0.0003995485236352181`", ",", 
   "0.000403352262481671`", ",", "0.0004071822112110546`", ",", 
   "0.00041103846946266565`", ",", "0.00041492113678986975`", ",", 
   "0.00041883031265999016`", ",", "0.00042276609644942287`", ",", 
   "0.00042672858744574604`", ",", "0.00043071788484305706`", ",", 
   "0.00043473408774097333`", ",", "0.0004387772951447433`", ",", 
   "0.00044284760596091655`", ",", "0.0004469451189967888`", ",", 
   "0.0004510699329586254`", ",", "0.0004552221464506623`", ",", 
   "0.0004594018579715531`", ",", "0.00046360916593157775`", ",", 
   "0.0004678441685831425`", ",", "0.0004721069641193676`", ",", 
   "0.0004763976506050316`", ",", "0.0004807163259928915`", ",", 
   "0.0004850630881212403`", ",", "0.00048943803471313`", ",", 
   "0.0004938412633733735`", ",", "0.0004982728715881013`", ",", 
   "0.0005027329567229843`", ",", "0.0005072216160200149`", ",", 
   "0.0005117389466001709`", ",", "0.0005162850454571988`", ",", 
   "0.0005208600094578353`", ",", "0.0005254639353413637`", ",", 
   "0.0005300969197172822`", ",", "0.0005347590590627505`", ",", 
   "0.0005394504497222563`", ",", "0.000544171187907283`", ",", 
   "0.0005489213696912021`", ",", "0.0005537010910108275`", ",", 
   "0.0005585104476653058`", ",", "0.0005633495353121187`", ",", 
   "0.0005682184494321119`", ",", "0.0005731172854698263`", ",", 
   "0.0005780461386528657`", ",", "0.0005830051039933393`", ",", 
   "0.000587994276461945`", ",", "0.0005930137508449729`", ",", 
   "0.0005980636217784996`", ",", "0.0006031439837481667`", ",", 
   "0.0006082549310845176`", ",", "0.000613396557965773`", ",", 
   "0.0006185689584139453`", ",", "0.0006237722262938394`", ",", 
   "0.0006290064553122754`", ",", "0.0006342717390167563`", ",", 
   "0.0006395681707934697`", ",", "0.0006448958438662888`", ",", 
   "0.0006502548512961059`", ",", "0.0006556452859796114`", ",", 
   "0.0006610672406460738`", ",", "0.0006665208078586726`", ",", 
   "0.0006720060800115002`", ",", "0.0006775231493294509`", ",", 
   "0.0006830721078661117`", ",", "0.0006886530474916608`", ",", 
   "0.0006942736848184472`", ",", "0.000699918859149995`", ",", 
   "0.0007055962887043687`", ",", "0.0007113060646627423`", ",", 
   "0.000717048278030985`", ",", "0.0007228306274662533`", ",", 
   "0.0007286379831190626`", ",", "0.0007344780476437052`", ",", 
   "0.0007403509113226292`", ",", "0.0007462566642544299`", ",", 
   "0.0007521953963520733`", ",", "0.0007581671973440063`", ",", 
   "0.000764172156770826`", ",", "0.0007702103639858349`", ",", 
   "0.0007762819081520433`", ",", "0.0007823868782431687`", ",", 
   "0.0007885253630411926`", ",", "0.0007946974511356952`", ",", 
   "0.0008009032309233`", ",", "0.0008071427906067852`", ",", 
   "0.0008134162181925308`", ",", "0.0008197236014908516`", ",", 
   "0.0008260650281145532`", ",", "0.0008324405854784889`", ",", 
   "0.0008388503607983377`", ",", "0.0008452944410886065`", ",", 
   "0.0008517729131634066`", ",", "0.0008582858636339008`", ",", 
   "0.000864833378908525`", ",", "0.000871415545191434`", ",", 
   "0.0008780324484818358`", ",", "0.0008846841745735468`", ",", 
   "0.0008913708090521055`", ",", "0.0008980924372974375`", ",", 
   "0.0009048491444780815`", ",", "0.000911641015556186`", ",", 
   "0.0009184681352814028`", ",", "0.0009253305881924412`", ",", 
   "0.0009322284586166241`", ",", "0.0009391618306675564`", ",", 
   "0.0009461307882462355`", ",", "0.0009531354150381643`", ",", 
   "0.0009601757945132405`", ",", "0.0009672520099263116`", ",", 
   "0.000974364144313733`", ",", "0.000981512280495922`", ",", 
   "0.0009886965010724724`", ",", "0.0009959168884259295`", ",", 
   "0.001003173524717016`", ",", "0.0010104664918870743`", ",", 
   "0.0010177958716546254`", ",", "0.0010251617455160345`", ",", 
   "0.001032564194745511`", ",", "0.0010400033003931108`", ",", 
   "0.001047479143283181`", ",", "0.0010549918040166917`", ",", 
   "0.0010625413629676839`", ",", "0.001070127900284712`", ",", 
   "0.0010777514958871803`", ",", "0.001085412229468008`", ",", 
   "0.0010931101804916299`", ",", "0.001100845428193109`", ",", 
   "0.001108618051576249`", ",", "0.0011164281294167022`", ",", 
   "0.0011242757402571968`", ",", "0.001132160962409423`", ",", 
   "0.001140083873952813`", ",", "0.0011480445527338734`", ",", 
   "0.0011560430763648544`", ",", "0.001164079522224526`", ",", 
   "0.0011721539674489634`", ",", "0.0011802664889631886`", ",", 
   "0.0011884171634313212`", ",", "0.00119660606729044`", ",", 
   "0.0012048332767389258`", ",", "0.0012130988677399035`", ",", 
   "0.0012214029160159123`", ",", "0.0012297454970534583`", ",", 
   "0.0012381266860984619`", ",", "0.0012465465581571467`", ",", 
   "0.0012550051879977042`", ",", "0.0012635026501444102`", ",", 
   "0.0012720390188833974`", ",", "0.001280614368258215`", ",", 
   "0.0012892287720701612`", ",", "0.00129788230387895`", ",", 
   "0.001306575036999491`", ",", "0.0013153070445058868`", ",", 
   "0.001324078399226436`", ",", "0.00133288917374641`", ",", 
   "0.0013417394404060534`", ",", "0.001350629271300141`", ",", 
   "0.0013595587382784213`", ",", "0.001368527912944506`", ",", 
   "0.0013775368666562038`", ",", "0.0013865856705241875`", ",", 
   "0.0013956743954119943`", ",", "0.0014048031119364701`", ",", 
   "0.0014139718904653265`", ",", "0.0014231808011200275`", ",", 
   "0.0014324299137712382`", ",", "0.0014417192980429316`", ",", 
   "0.001451049023308948`", ",", "0.0014604191586928827`", ",", 
   "0.0014698297730693088`", ",", "0.0014792809350632208`", ",", 
   "0.0014887727130478146`", ",", "0.001498305175147041`", ",", 
   "0.0015078783892312764`", ",", "0.0015174924229219844`", ",", 
   "0.0015271473435884975`", ",", "0.0015368432183472391`", ",", 
   "0.0015465801140629454`", ",", "0.0015563580973481095`", ",", 
   "0.0015661772345619829`", ",", "0.0015760375918115743`", ",", 
   "0.0015859392349493184`", ",", "0.0015958822295762953`", ",", 
   "0.0016058666410381228`", ",", "0.0016158925344269548`", ",", 
   "0.001625959974580482`", ",", "0.0016360690260830424`", ",", 
   "0.0016462197532637335`", ",", "0.0016564122201963016`", ",", 
   "0.001666646490700363`", ",", "0.0016769226283404048`", ",", 
   "0.0016872406964251185`", ",", "0.0016976007580078445`", ",", 
   "0.0017080028758861276`", ",", "0.0017184471125979428`", ",", 
   "0.0017289335304373488`", ",", "0.0017394621914288422`", ",", 
   "0.0017500331573468975`", ",", "0.001760646489707307`", ",", 
   "0.0017713022497712894`", ",", "0.0017820004985418247`", ",", 
   "0.0017927412967659873`", ",", "0.0018035247049330572`", ",", 
   "0.0018143507832756312`", ",", "0.0018252195917689562`", ",", 
   "0.0018361311901319288`", ",", "0.0018470856378249856`", ",", 
   "0.0018580829940508803`", ",", "0.0018691233177560163`", ",", 
   "0.001880206667628892`", ",", "0.0018913331020981028`", ",", 
   "0.001902502679338225`", ",", "0.0019137154572632653`", ",", 
   "0.0019249714935303253`", ",", "0.0019362708455380462`", ",", 
   "0.0019476135704273867`", ",", "0.0019589997250815117`", ",", 
   "0.001970429366125348`", ",", "0.0019819025499248077`", ",", 
   "0.0019934193325894523`", ",", "0.002004979769969606`", ",", 
   "0.002016583917657133`", ",", "0.0020282318309862157`", ",", 
   "0.0020399235650329084`", ",", "0.002051659174615139`", ",", 
   "0.00206343871429282`", ",", "0.0020752622383667374`", ",", 
   "0.0020871295962087144`", ",", "0.002099041252985323`", ",", 
   "0.0021109970555026614`", ",", "0.002122997156325246`", ",", 
   "0.002135041507163926`", ",", "0.0021471300634916535`", ",", 
   "0.002159262977099674`", ",", "0.002171440300223648`", ",", 
   "0.0021836620848436628`", ",", "0.0021959283826807896`", ",", 
   "0.002208239245199084`", ",", "0.002220594723603697`", ",", 
   "0.0022329948688428747`", ",", "0.002245439731609622`", ",", 
   "0.0022579293623343766`", ",", "0.0022704638111948894`", ",", 
   "0.002283043128109119`", ",", "0.0022956673627385626`", ",", 
   "0.002308336564488478`", ",", "0.0023210507825054405`", ",", 
   "0.0023338100656800087`", ",", "0.0023466144626472785`", ",", 
   "0.0023594640217825535`", ",", "0.002372358791207896`", ",", 
   "0.0023852988187869073`", ",", "0.0023982841521278386`", ",", 
   "0.0024113148385812577`", ",", "0.0024243909252446016`", ",", 
   "0.0024375124589569586`", ",", "0.0024506794863019543`", ",", 
   "0.0024638920536087516`", ",", "0.002477150206950385`", ",", 
   "0.0024904539921444258`", ",", "0.0025038034547540944`", ",", 
   "0.002517198640086038`", ",", "0.002530639593194217`", ",", 
   "0.002544126358876464`", ",", "0.0025576589816767026`", ",", 
   "0.002571237505884616`", ",", "0.002584861975535535`", ",", 
   "0.002598532434410994`", ",", "0.0026122489260382853`", ",", 
   "0.0026260114936931256`", ",", "0.0026398201803952137`", ",", 
   "0.002653675028913005`", ",", "0.0026675760817612693`", ",", 
   "0.002681523381202311`", ",", "0.002695516969245637`", ",", 
   "0.002709556887648845`", ",", "0.0027236431779167347`", ",", 
   "0.00273777588130375`", ",", "0.0027519550388110936`", ",", 
   "0.0027661806911893905`", ",", "0.002780452878937134`", ",", 
   "0.00279477164230324`", ",", "0.0028091370212852684`", ",", 
   "0.0028235490556306475`", ",", "0.0028380077848358942`", ",", 
   "0.0028525132481477256`", ",", "0.0028670654845633914`", ",", 
   "0.0028816645328310075`", ",", "0.0028963104314485566`", ",", 
   "0.0029110032186658863`", ",", "0.0029257429324838213`", ",", 
   "0.0029405296106549406`", ",", "0.0029553632906826888`", ",", 
   "0.0029702440098240412`", ",", "0.0029851718050880605`", ",", 
   "0.003000146713235008`", ",", "0.003015168770780452`", ",", 
   "0.003030238013991271`", ",", "0.003045354478888207`", ",", 
   "0.0030605182012468646`", ",", "0.003075729216595713`", ",", 
   "0.0030909875602184167`", ",", "0.0031062932671521715`", ",", 
   "0.0031216463721904786`", ",", "0.0031370469098818132`", ",", 
   "0.0031524949145295134`", ",", "0.003167990420193667`", ",", 
   "0.0031835334606900023`", ",", "0.003199124069590553`", ",", 
   "0.003214762280225214`", ",", "0.0032304481256799633`", ",", 
   "0.003246181638799084`", ",", "0.0032619628521838306`", ",", 
   "0.0032777917981942073`", ",", "0.0032936685089479667`", ",", 
   "0.0033095930163221654`", ",", "0.0033255653519538297`", ",", 
   "0.0033415855472372913`", ",", "0.0033576536333284057`", ",", 
   "0.0033737696411422213`", ",", "0.0033899336013546444`", ",", 
   "0.0034061455444029942`", ",", "0.003422405500484227`", ",", 
   "0.003438713499558488`", ",", "0.0034550695713457813`", ",", 
   "0.0034714737453308553`", ",", "0.0034879260507585386`", ",", 
   "0.0035044265166379596`", ",", "0.00352097517174077`", ",", 
   "0.0035375720446038095`", ",", "0.0035542171635255526`", ",", 
   "0.0035709105565711052`", ",", "0.0035876522515685405`", ",", 
   "0.0036044422761121186`", ",", "0.0036212806575607326`", ",", 
   "0.0036381674230403505`", ",", "0.0036551025994424613`", ",", 
   "0.003672086213423631`", ",", "0.003689118291410942`", ",", 
   "0.003706198859595`", ",", "0.003723327943936816`", ",", 
   "0.0037405055701646983`", ",", "0.0037577317637753627`", ",", 
   "0.0037750065500338215`", ",", "0.003792329953975715`", ",", 
   "0.0038097020004050908`", ",", "0.003827122713897735`", ",", 
   "0.0038445921187978405`", ",", "0.00386211023922145`", ",", 
   "0.0038796770990566776`", ",", "0.0038972927219615983`", ",", 
   "0.003914957131367913`", ",", "0.00393267035047884`", ",", 
   "0.003950432402271442`", ",", "0.003968243309494746`", ",", 
   "0.003986103094672622`", ",", "0.004004011780102568`", ",", 
   "0.004021969387856483`", ",", "0.004039975939781226`", ",", 
   "0.0040580314574995`", ",", "0.0040761359624093`", ",", 
   "0.004094289475684798`", ",", "0.004112492018277569`", ",", 
   "0.004130743610914478`", ",", "0.004149044274101676`", ",", 
   "0.004167394028122273`", ",", "0.004185792893037776`", ",", 
   "0.004204240888688093`", ",", "0.0042227380346937515`", ",", 
   "0.004241284350452124`", ",", "0.004259879855144089`", ",", 
   "0.00427852456772726`", ",", "0.004297218506942868`", ",", 
   "0.004315961691312653`", ",", "0.0043347541391397515`", ",", 
   "0.004353595868510252`", ",", "0.004372486897291639`", ",", 
   "0.004391427243134571`", ",", "0.004410416923474991`", ",", 
   "0.004429455955530792`", ",", "0.004448544356305373`", ",", 
   "0.0044676821425866375`", ",", "0.0044868693309468854`", ",", 
   "0.00450610593774603`", ",", "0.004525391979128379`", ",", 
   "0.0045447274710251895`", ",", "0.004564112429156442`", ",", 
   "0.004583546869026511`", ",", "0.004603030805929942`", ",", 
   "0.00462256425494989`", ",", "0.004642147230957128`", ",", 
   "0.004661779748611927`", ",", "0.004681461822365618`", ",", 
   "0.004701193466458142`", ",", "0.004720974694921498`", ",", 
   "0.004740805521576963`", ",", "0.0047606859600387574`", ",", 
   "0.004780616023713602`", ",", "0.004800595725799495`", ",", 
   "0.0048206250792885985`", ",", "0.0048407040969649096`", ",", 
   "0.004860832791407921`", ",", "0.004881011174989736`", ",", 
   "0.0049012392598797305`", ",", "0.004921517058040559`", ",", 
   "0.004941844581230925`", ",", "0.004962221841006809`", ",", 
   "0.004982648848718796`", ",", "0.005003125615517523`", ",", 
   "0.005023652152348346`", ",", "0.005044228469956558`", ",", 
   "0.005064854578885392`", ",", "0.005085530489476797`", ",", 
   "0.005106256211872773`", ",", "0.0051270317560149214`", ",", 
   "0.005147857131645894`", ",", "0.005168732348307725`", ",", 
   "0.0051896574153458275`", ",", "0.005210632341905885`", ",", 
   "0.005231657136936407`", ",", "0.005252731809189282`", ",", 
   "0.005273856367218777`", ",", "0.005295030819383317`", ",", 
   "0.0053162551738452635`", ",", "0.00533752943857313`", ",", 
   "0.005358853621337367`", ",", "0.005380227729717579`", ",", 
   "0.005401651771097304`", ",", "0.005423125752668345`", ",", 
   "0.005444649681427105`", ",", "0.0054662235641810275`", ",", 
   "0.005487847407542157`", ",", "0.005509521217933022`", ",", 
   "0.005531245001584861`", ",", "0.005553018764537843`", ",", 
   "0.005574842512642619`", ",", "0.005596716251560108`", ",", 
   "0.005618639986762042`", ",", "0.005640613723532306`", ",", 
   "0.005662637466965492`", ",", "0.005684711221969119`", ",", 
   "0.00570683499326452`", ",", "0.005729008785383627`", ",", 
   "0.005751232602675516`", ",", "0.005773506449301635`", ",", 
   "0.0057958303292379165`", ",", "0.005818204246277547`", ",", 
   "0.005840628204026643`", ",", "0.005863102205910353`", ",", 
   "0.005885626255168641`", ",", "0.005908200354859838`", ",", 
   "0.005930824507858867`", ",", "0.005953498716859129`", ",", 
   "0.005976222984373725`", ",", "0.005998997312733678`", ",", 
   "0.00602182170409038`", ",", "0.006044696160415142`", ",", 
   "0.006067620683498975`", ",", "0.006090595274955701`", ",", 
   "0.006113619936219394`", ",", "0.006136694668546161`", ",", 
   "0.006159819473015693`", ",", "0.006182994350530269`", ",", 
   "0.006206219301814864`", ",", "0.0062294943274191494`", ",", 
   "0.006252819427717826`", ",", "0.006276194602909735`", ",", 
   "0.006299619853018523`", ",", "0.006323095177896199`", ",", 
   "0.006346620577218132`", ",", "0.006370196050489385`", ",", 
   "0.006393821597040272`", ",", "0.0064174972160304655`", ",", 
   "0.00644122290644733`", ",", "0.006464998667107258`", ",", 
   "0.006488824496655554`", ",", "0.006512700393568105`", ",", 
   "0.00653662635615071`", ",", "0.006560602382540082`", ",", 
   "0.006584628470703402`", ",", "0.006608704618441319`", ",", 
   "0.006632830823385838`", ",", "0.0066570070830009875`", ",", 
   "0.006681233394585151`", ",", "0.00670550975526929`", ",", 
   "0.006729836162020275`", ",", "0.0067542126116373336`", ",", 
   "0.006778639100757933`", ",", "0.0068031156258517855`", ",", 
   "0.006827642183227067`", ",", "0.006852218769027307`", ",", 
   "0.0068768453792344975`", ",", "0.006901522009667316`", ",", 
   "0.006926248655982459`", ",", "0.006951025313674752`", ",", 
   "0.006975851978079151`", ",", "0.007000728644369625`", ",", 
   "0.0070256553075600525`", ",", "0.007050631962505327`", ",", 
   "0.007075658603899582`", ",", "0.007100735226281185`", ",", 
   "0.00712586182402819`", ",", "0.007151038391361442`", ",", 
   "0.0071762649223454655`", ",", "0.007201541410887247`", ",", 
   "0.007226867850738783`", ",", "0.007252244235495531`", ",", 
   "0.007277670558596849`", ",", "0.007303146813330219`", ",", 
   "0.007328672992825913`", ",", "0.007354249090061993`", ",", 
   "0.0073798750978623096`", ",", "0.007405551008900169`", ",", 
   "0.007431276815692778`", ",", "0.007457052510609019`", ",", 
   "0.007482878085864897`", ",", "0.007508753533525203`", ",", 
   "0.007534678845505294`", ",", "0.007560654013569201`", ",", 
   "0.00758667902933341`", ",", "0.0076127538842640785`", ",", 
   "0.007638878569678265`", ",", "0.007665053076747141`", ",", 
   "0.007691277396492335`", ",", "0.007717551519789034`", ",", 
   "0.007743875437366321`", ",", "0.0077702491398063955`", ",", 
   "0.007796672617546241`", ",", "0.007823145860876624`", ",", 
   "0.007849668859945758`", ",", "0.007876241604755974`", ",", 
   "0.007902864085165384`", ",", "0.007929536290890438`", ",", 
   "0.00795625821150292`", ",", "0.00798302983643373`", ",", 
   "0.008009851154971104`", ",", "0.008036722156262277`", ",", 
   "0.008063642829312156`", ",", "0.008090613162988203`", ",", 
   "0.008117633146014214`", ",", "0.008144702766976875`", ",", 
   "0.008171822014322094`", ",", "0.008198990876359447`", ",", 
   "0.008226209341257618`", ",", "0.00825347739704907`", ",", 
   "0.008280795031629373`", ",", "0.008308162232755656`", ",", 
   "0.008335578988051262`", ",", "0.00836304528500098`", ",", 
   "0.008390561110956707`", ",", "0.008418126453132446`", ",", 
   "0.008445741298611198`", ",", "0.008473405634338738`", ",", 
   "0.008501119447128946`"}], "}"}]], "Output",
 CellChangeTimes->{3.517510550569075*^9}]
}, Open  ]]
},
WindowSize->{1016, 309},
WindowMargins->{{0, Automatic}, {0, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 2703, 77, 132, "Input"],
Cell[3273, 101, 4686, 144, 165, "Output"]
}, Open  ]],
Cell[7974, 248, 253, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[8252, 260, 1046, 31, 52, "Input"],
Cell[9301, 293, 3200, 102, 102, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12538, 400, 346, 10, 31, "Input"],
Cell[12887, 412, 173, 3, 30, "Output"]
}, Open  ]],
Cell[13075, 418, 1091, 32, 31, "Input"],
Cell[14169, 452, 1027, 31, 72, "Input"],
Cell[15199, 485, 130, 2, 31, "Input"],
Cell[15332, 489, 986, 30, 52, "Input"],
Cell[16321, 521, 866, 29, 31, "Input"],
Cell[CellGroupData[{
Cell[17212, 554, 3903, 119, 252, "Input"],
Cell[21118, 675, 499, 12, 47, "Output"],
Cell[21620, 689, 449, 10, 42, "Output"],
Cell[22072, 701, 655, 17, 52, "Output"],
Cell[22730, 720, 878, 26, 75, "Output"],
Cell[23611, 748, 1235, 38, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24883, 791, 983, 27, 72, "Input"],
Cell[25869, 820, 22498, 374, 248, "Output"],
Cell[48370, 1196, 9706, 165, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58113, 1366, 1499, 31, 92, "Input"],
Cell[59615, 1399, 1330, 39, 65, "Output"],
Cell[60948, 1440, 1389, 40, 65, "Output"],
Cell[62340, 1482, 1534, 43, 74, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63911, 1530, 1679, 31, 92, "Input"],
Cell[65593, 1563, 18647, 253, 1228, "Output"],
Cell[84243, 1818, 217, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84497, 1826, 1304, 27, 52, "Input"],
Cell[85804, 1855, 33170, 504, 2068, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
